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INTRODUCTION  AND  SUMMARY 

The  Florida  Department  of  Transportation  began  a  research  project 
with  Florida  Technological  University  on  March  1,  1976  with  the  goal  of 
improving  the  functioning  of  the  control  software  for  the  Tampa  Green 
Band  Merging  Control  System.  Experience  with  public  operation  of  the 
system  to  that  date  had  identified  several  areas  of  operational  perfor- 
mance which  could  possibly  be  improved  or  modified  to  increase  the  oper- 
ational benefits  of  the  system  to  its  users. 

Meetings  of  the  Technical  Advisory  Committee  (TAC)  for  the  project, 
consisting  of  representatives  from  the  participating  city,  state,  and 
Federal  organizations,  were  held  in  Tampa  on  March  11,  1976,  August  23,  1976, 
and  January  17,  1977.  These  meetings  provided  a  forum  for  identifying 
desirable  software  changes  for  the  control  system  and  for  subsequently 
approving  the  recommendations  of  the  research  staff  concerning  implemen- 
tation strategies  for  these  changes. 

A  computer  programmer  was  stationed  at  the  Tampa  Control  Center 
during  much  of  the  project  to  code  and  test  the  changes  comprising  the 
revised  system  plan.  To  test  the  algorithms  proposed  for  smoothing  the 
moving  green  band  displays,  simulation  models  were  used  to  prepare  16  mm 
films  of  band  activity.  These  films  were  used  to  select  and  validate  the 
method  which  was  incorporated  into  the  final  software  revisions. 

The  original  project  completion  date  of  December  31,  1976,  was 
eventually  extended  to  April  29,  1977  due  to  computer  equipment  problems 


at  the  field  site.  Formal  Software  Acceptance  Tests  were  held  on  April  19, 
1977,  under  the  auspices  of  the  TAC  and  they  verified  all  operational 
aspects  of  the  control  program  with  special  emphasis  on  the  recent  modifi- 
cations. A  problem  with  the  system  failing  to  launch  green  bands  from 
the  stop  light  in  the  stopped-gap  mode  of  operation  during  these  tests 
was  corrected  on  April  25,  1977,  and  the  revised  system  has  been  in 
operation  since  that  date.  A  Technical  Evaluation  of  the  new  system  is 
to  be  done  by  the  Florida  Department  of  Transportation  with  the  assistance 
of  the  University  of  Florida  Transportation  Research  Center. 


SECTION  I:  CHANGES  NOT  RELATED  TO  BAND  PROPAGATION 
INITIAL  PROJECT  SCOPE 

The  Statement  of  Work  for  the  project  included  the  following  Task 
Delineation  for  the  control  software  modifications  (an  additional  Task 
relating  to  an  extension  of  the  system  evaluation  activities  was  under- 
taken by  Florida  DOT) : 

Task  G 

Modify  the  Raytheon  and  Tampa  Modified  Software  pertaining  to  the 
propagation  of  the  green  band  so  that  (1)  the  mortality  of  green  bands 
will  be  minimized,  (2)  the  ends  of  moving  green  bands  will  be  stabilized 
as  the  bands  move  along  the  ramp,  and  (3)  long  bands  will  be  segmented 
into  shorter  bands  to  provide  the  sensation  of  moving  bands. 

Task  H 

Investigate  the  suitability  of  the  new,  proposed  display  algorithms, 
prior  to  selection  for  field  implementation,  by  using  the  simulation 
developed  by  Bauer.  This  investigation  will  consider  the  impact  of 
detection  reliability  and  sensor  configuration  on  the  performance  of  the 
new  display  algorithm. 

Task  I 

Modify  the  Raytheon  and  Tampa  Modified  Software  to  prevent  the 
release  of  a  surge  of  vehicles  onto  the  ramp  when  the  system  goes  from 
a  stopped  mode  to  the  moving  mode. 


Task  J 

Modify  the  stopped  mode  logic  used  in  the  Raytheon  and  Tampa  Modified 
Software  so  as  to  be  more  responsive  to  ramp  and  merge  area  obstructions. 

Section  II  will  cover  the  preparation  of  movies  used  to  evaluate  band 
propagation  algorithms  developed  to  meet  the  requirements  of  Tasks  G  and  H. 
Section  III  will  discuss  the  structure  of  the  final  band  propagation  algorithm 
selected  for  field  implementation.  This  section  will  review  1.)  changes  made 
to  the  control  software  to  meet  the  requirements  of  Tasks  I  and  J,  and  2.) 
other  changes  which  were  made  at  the  request  of  the  TAC  to  provide  additional 
operational  improvements  to  the  green  band  system  in  Tampa. 

Modifications  Implemented  for  Task  I: 
Improvements  to  Mode  Change  Logic 

To  prevent  the  release  of  a  surge  of  vehicles  into  the  merge  area  of 
the  ramp  when  the  system  transitions  from  stopped  gap  (SG)  mode  to  moving 
mode  (MM) ,  the  following  procedure  was  inplemented  in  the  Green  Band  Status 
Subprogram: 

Allow  a  transition  from  SG  to  MM  only  if  all  of  the  following  conditions 
are  met: 

1.  Normal  velocity  and  volume  criteria  for  this  transition  are  satisfied. 

2.  The  system  is  not  '.'masked"  at  the  candidate  transition  time. 

3.  Ramp  sensors  R6B  and  R7  have  been  clear  of  traffic  for  a  fixed  period 
of  time  (in  the  range  of  0-60  seconds,  operator-changeable  from  the 
system  teletype  keyboard.) 


Modifications  Implemented  for  Task  J: 

System  Response  to  Ramp  and  Merge  Area 

Obstructions 

To  reduce  vehicle  queueing  in  the  ramp  and  merge  areas  downstream  of 
the  traffic  lights  on  the  ramp,  a  procedure  was  designed  for  implementation 
in  Green  Band  Status  to  meter  vehicles  every  20  seconds  from  the  lights  in 
the  SM  and  SG  modes  if  either  or  both  of  the  following  conditions  are  true: 

1)  Any  of  the  detectors  Rl  through  R5  have  been  occupied  for  more  than 
some  fixed  time  period  (operator  controllable  from  the  console) . 

2)  Either  of  the  merge  area  detectors  Ml  or  M2  have  been  occupied  for 
more  than  some  fixed  time  period  (also  operator  controllable  from 
the  console.) 

Modifications  Implemented  for  "No  Vehicles 
On  Ramp"  Condition 

The  Tampa  green  band  system  uses  an  "open-loop"  control  scheme  in  the 
sense  that  vehicle  movements  on  the  ramp  are  not  used  in  the  display  algorithms 
to  determine  band  placements.  In  the  earlier  Tampa  system,  as  a  consequence 
of  this  design,  bands  were  displayed  in  the  moving  mode  at  all  times  when 
adequate  freeway  gaps  were  available,  even  when  vehicles  were  not  actually 
on  the  ramp.  To  eliminate  this  condition,  band  displays  are  now  normally 
kept  off,  and  a  software  timing  loop  started  by  an  R-ll  activation  is  now 
used  to  turn  on  band  displays  for  a  period  of  time  adequate  to  allow  the 
triggering  vehicle  to  clear  the  ramp.   (This  time  is  operator  controllable 
from  the  console  and  is  nominally  20-30  seconds.) 


This  feature  should  help  contribute  to  driver  acceptance  of  the  system, 
as  the  displayed  bands  will  now  appear  to  be  responding  to  individual  vehicles 
entering  the  ramp.  In  addition,  a  slight  reduction  in  the  power  consumption 
used  by  the  green  band  should  be  expected,  as  the  bulbs  will  not  be  in  the 
full  on  condition  as  much  as  they  were  in  the  past.   (The  "quick- start" 
ballasts  of  the  green  band  display  have  roughly  the  same  power  consumption 
when  the  bulbs  are  off  as  when  they  are  on  to  keep  the  bulb  elements  ready 
for  operation.) 

Modifications  Implemented  for  Improved  Capabilities 

In  Sensor  Performance  Monitoring  And 

System  Response  To  Sensor  Failures 

To  provide  a  capability  for  identifying  field  sensors  which  are  mal- 
functioning (e.g.,  "stuck-on",  stuck-off",  or  "chattering"),  and  to  provide 
appropriate  safety  measures  in  normal  unattended  system  operations,  the 
following  features  are  now  implemented  in  the  Operator  Monitor  and  Fault 
Monitor  Subprograms: 

1)  The  system  will  now  automatically  print  a  numerical  count  of  all  sensor 
activations  since  the  last  initialization  and  since  the  last  print 
interval  (operator  changeable  time,  normally  one  hour.)  These  counts 
may  be  used  to  identify  sensors  which  are  not  in  acceptable  agreement 
with  other  sensors  in  their  area.  This  feature  can  also  be  requested 
manually  from  the  teletype  keyboard  at  any  time  by  pressing  the  "S" 
key.  The  "I"  and  "U"  keys  can  be  used  to  inhibit  and  uninhibit 
(e.g.,  allow)  the  automatic  print  feature  as  desired. 


2)  A  "critical  sensor"  monitor  is  now  implemented  for  the  following 
sensor  groups  and  their  associated  system  functions.  If  detector 
state  changes  are  not  uniform  for  a  group  within  a  fixed  time 
period,  i.e.,  all  detectors  "on"  at  least  once  or,  no  detectors 
"on"  for  a  period  of  time  (operator  changeable,  nominally  3-5 
minutes),  a  fault  message  will  be  printed  on  the  teletype,  and 
the  system  will  be  automatically  brought  to  a  safe  full -off  con- 
dition and  the  computer  halted. 


Function 


Critical  Sensors  Monitored 


yield  sign  control 


R3,  R4 


freeway  traffic 
prediction 


F1A  through  F4B,  inclusive 


traffic  signal 
control 


R6B,  R6A 


merge  area  monitoring 

Ml  through  M5,  inclusive 

power  off  masking 

Rll 

volume  counting 

Rl,  R2,  R3  (2  out  of  3  must  be  active) 

Modifications  Implemented  For  Redundant  Sensor 
Activation  of  the  Yield  Sign 


To  provide  an  additional  safety  margin  for  the  control  of  the  YIELD 
sign  on  the  ramp,  a  new  control  procedure  using  both  R3  and  R4  has  been 
implemented.  A  vehicle  now  has  to  have  a  green  band  at  both  R3  and  R4  to 
keep  the  yield  sign  from  being  activated. 


Modifications  Implemented  To  Provide  More 
Reliable  Data  For  Modal  Switching  Algorithm 

For  the  first  generation  Green  Band  System  in  Tampa,  system  deter- 
mination of  freeway  speed  and  combined  freeway/merging  volume  was  based 
on  sensors  F1A/F1B  and  FOA,  respectively.  These  parameters  are  used  in 
the  automatic  mode  switching  logic  in  the  Green  Band  Status  Subprogram. 

To  provide  more  reliability  in  the  measurement  of  velocity  and 
volume,  the  system  now  obtains  these  values  from  the  following  multiple- 
sensor  operations: 

VBAR  =  LV(Fl)  ,  V(F2) ,  V(F3)J 
2 


=  LVOL(FIA),  V0L(F2A),  V0L(F3A)J  +  L\ 


VOLUME  =  LVOL(FIA),  V0L(F2A),  V0L(F3A)J  +  LVOL(Rl),  V0L(R2)  ,  V0L(R3). 

2  2 


[] 


where  |   |  denotes  the  sum  of  the  closet  two  measurements. 

Modifications  Implemented  To  Provide  An  Alternate 
"CHECK- IN"  Logic  at  the  Stop  Bar 

Operational  experience  with  the  earlier  Tampa  system  in  the  stopped 
gap  (SG)  and  stopped  metering  (SM)  modes  has  shown  that  many  vehicles 
have  stopped  upstream  of  a  point  on  the  ramp  close  enough  to  trigger  the 
activation  of  R6B,  the  nominal  "check- in"  detector  for  service  demand  at 
the  traffic  signal.  In  such  instances,  the  light  remains  red  and  queue ing 


can  develop  until  the  lead  driver  moves  from  a  stopped  position. 

To  provide  an  alternative  system  response  for  this  condition,  a 
new  algorithm  has  been  added  to  the  Green  Band  Status  Subprogram  to 
initiate  the  light  cycle  logic  as  follows:  If  the  traffic  light  has  been 
indicating  red  for  a  period  of  15  seconds  or  more,  and  R7  has  been  activated 
within  the  last  15  seconds  and  R6B  has  not,  a  new  cycle  will  be  initiated 
as  if  R6B  had  been  triggered. 

This  modification  should  enhance  driver  confidence  in  the  system  by 
having  it  respond  to  the  special  needs  of  drivers  not  familiar  with  the 
system  and  thus  who  are  possibly  expecting  a  fixed  time  cycle  at  the  light. 


SECTION  II :  PRODUCTION  OF  THE  COMPUTER  GENERATED 
GREEN  BAND  MOVIES 

The  work  described  in  this  section  can  be  considered  to  be  three  relatively- 
independent  tasks.  The  first  task  involved  changing  the  simulation  model 

(ref:  Bauer,  1975)  to  obtain  the  data  required  to  draw  a  movie  frame.  The 
work  involved  making  changes  in  the  existing  simulation  code  and  the  addition 
of  new  subroutines. 

The  second  task  was  to  develop  a  program  to  process  the  frame  data  and 
draw  the  pictures  on  the  graphics  terminal.  Since  a  time-sharing  graphics 
terminal  was  to  be  used,  the  program  execution  had  to  be  controlled  by  the 
operator  to  allow  frame  selection  and  photographing. 

The  third  task  was  the  execution  of  the  drawing  program  and  the  photo- 
graphing of  the  movie  frames.  Since  this  phase  of  the  project  was  to  allow 
the  comparison  of  green  band  control  techniques,  it  was  necessary  to  make 
several  movies  using  the  various  band  control  techniques. 

Figure  1  is  a  diagram  of  the  process  involved  in  the  making  of  a 
computer  generated  Green  Band-  Control  Program  Simulation  movie.  The 
processed  sensor  data  serves  as  input  to  the  green  band  simulation  model 
which  creates  the  frame  data.  The  drawing  program  then  uses  the  frame  data 
as  input  to  draw  each  frame  of  the  movie  on  the  graphics  terminal,  where  it 
is  photographed  on  a  single  frame  basis  using  a  16  millimeter  movie  camera. 
The  film  is  developed  and  the  movie  process  is  complete.  The  movies  are 
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Figure  l.The  computer  generated  green  band  movie  process. 
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are  then  available  for  analyzing  the  effects  of  changes  in  the  Green  Band 
Simulation  model. 

The  remainder  of  this  section  provides  a  detailed  description  of  the 
work  accomplished  in  the  completion  of  the  tasks.  Listings  of  the  Computer 
Programs  discussed  herewith  may  be  found  in  Appendix  A. 

Generation  of  the  Frame  Data 

The  data  required  to  draw  a  picture  of  the  state  of  the  freeway  and 
the  band  display  include  the  positions  and  types  of  the  vehicles  along  the 
freeway,  the  status  of  the  green  band  display,  and  the  current  simulation 
time.  To  acquire  the  data  at  a  time  interval  corresponding  to  the  frame 
exposure  rate  of  the  film  required  modification  of  the  existing  Green 
Band  Simulation  program. 

The  modification  involved  the  addition  of  an  interrupt  to  the  simulation 
main  program,  changes  in  the  GBUD  subroutine,,  and  the  addition  of  two  sub- 
routines . 

The  interruption  of  the  simulation  to  allow  the  output  of  the  current 
state  was  provided  by  a  cycle  counter  and  the  use.  of  IF  statements  to  test 
the  number  of  cycles  since  the  last  frame  data  output.  Each  operating  cycle 
in  the  simulation  represents  2  milliseconds  of  the  green  band  system  time 
history.  The  number  of  cycles  between  interrupts  for  a  frame  output  is 
dependent  on  the  film  speed  to  be  used.  The  following  equation  provides 
the  value  for  the  number  of  cycles  between  interrupts  for  any  film  speed: 

CBI  =  (JL)/0.002, 
FS 

where  CBI  is  the  number  of  cycles  between  interrupts,  rounded  to  the  nearest 


12 


integer,  and  FS  is  the  film  speed  in  frames  per  second.  For  rates  of  18 
and  24  frames  per  second,  the  number  of  cycles  are  28  and  21  respectively. 

The  changes  in  the  GBUD  subroutine  involve  the  assignment  of  numerical 
values  to  represent  the  status  of  the  green  band  and  the  division  of  the 
green  band  into  4  foot  segments  to  represent  the  4  foot  fluorescent  lights 
used  in  the  actual  system.  Each  4  foot  segment  was  assigned  either  a 
value  of  one  or  two  corresponding  to  an  off  or  on  status  respectively.  The 
division  of  the  band  into  4  foot  lengths  was  accomplished  by  changing  appro- 
priate constants  involved  in  the  GBUD  subroutine  statements. 

The  first  of  the  two  subroutines  added  to  the  simulation,  XVEH,  uses 
two  methods  to  provide  the  current  locations  of  the  freeway  vehicles. 
Figure   2   is  a  simplified  flow  chart  of  the  XVEH  subroutine.  The  RAWDAT 
lists  created  in  the  ISRINI  subroutine  are  examined  on  a  sensor  by  sensor 
basis  starting  from  the  one  closest  to  the  ramp,  El,  to  the  fourth  sensor, 
F4.  Lists  for  sensors  F5  through  F7  are  not  examined  since  they  are  physi- 
cally located  before  the  region  of  the  freeway  displayed  on  the  graphics 
terminal.  The  display  begins  57  feet  downstream  of  sensor  F4  and  extends 
1,023  feet  along  the  freeway. 

The  XVEH  subroutine  begins  by  initializing  vehicle  index  counters 
and  setting  all  vehicle  flags  to  zero.  The  vehicle  flags  are  used  to 
indicate  whether  a  vehicle  of  a  particular  number  has  been  processed  during 
each  call  of  XVEH.  Since  the  sensors  are  examined  from  the  closest  location 
to  the  merge  point  to  the  farthest,  the  flags  prevent  a  vehicle  location 
from  being  recorded  from  more  than  the  most  recent  sensor  entry. 
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The  routine  sets  an  index  variable  to  one,  indicating  sensor  Fl,  and 
then  tests  if  sensor  lists  for  Fl  through  F4  have  been  examined.  When  all 
lists  have  been  examined,  the  routine  returns  control  to  the  main  program; 
otherwise,  another  index  variable  is  set  equal  to  one  to  start  the  examination 
of  the  sensor  activation  entries.  The  first  entry  is  examined  to  determine 
if  it  has  occurred  before  or  at  the  present  simulation  time.  If  the  entry 
has  not  yet  occurred,  the  routine  increments  the  sensor  index  variable  and 
begins  to  examine  the  next  sensor's  entries,  provided  all  sensors  have  not 
be  examined.  If  the  entry  has  occurred,  the  vehicle  number  causing  the 
entry  is  determined. 

The  vehicle  flag  is  checked  and  if  it  is  set,  indicating  the  vehicle 
has  been  handled  at  a  previous  sensor,  the  routine  advances  to  the  next 
entry.  If  not  set,  the  length  of  the  vehicle,  in  feet,  is  calculated  as  the 
product  of  the  measured  vehicle  velocity  and  its  length  in  seconds.  The 
vehicle  is  then  classified  according  to  its  length  as  a  truck,  a  car,  or  a 
motorcycle . 

If  the  entry  being  examined  is  an  Fl  sensor  entry,  its  location  is 
calculated  using  method  one.  The  measured  velocity  at  the  sensor  is  assumed 
to  be  continued  through  the  sensor  region,  and  the  location  of  the  vehicle 
is  found  by  the  following  equation: 

IXLOC  =  (RAWDAT  (I,LCNT,3))  *  (TIME  -  RAWDAT(I,LCNT,2))  +  XSNS  (I)  +  0.5 

The  first  term  is  the  product  of  the  vehicle  velocity  and  the  time  since 
the  entry,  the  second  term  is  the  location  of  the  sensor,  and  the  constant 
one-half  is  used  for  round  off  purposes.  The  result  of  using  method  one  is 
the  apparent  "jerking"  of  the  vehicle  when  its  next  sensor  activation  occurs. 

17 


If  the  vehicle  has  slowed  down  between  sensors,  the  vehicle  will  appear  to 
go  beyond  the  next  sensor  location  before  the  next  sensor  is  activated.  When 
the  activation  does  occur,  the  vehicle  will  be  jerked  back  to  the  sensor 
location.  In  the  case  of  a  vehicle  increasing  its  speed  between  sensors 
the  vehicle  will  jump  forward  when  the  next  sensor  activation  occurs.  The 
vehicle  location  is  tested  to  determine  if  it  is  within  the  region  displayed 
in  the  picture.  If  it  is,  the  location  is  recorded  according  to  vehicle 
type,  the  vehicle  flag  is  set  and  the  next  entry  is  examined.  If  it  is  not, 
the  vehicle  flag  is  set  without  recording  the  location  and  the  routine  ad- 
vances to  the  next  entry. 

If  the  entry  load  not  been  from  sensor  Fl  the  routine  begins  to  search 
the  sensor's  entries  for  the  entry  caused  by  the  vehicle  under  consideration. 
The  search  begins  at  the  first  list  entry  and  continues  to  the  end  of  the 
list  if  the  proper  entry  is  not  found.  If  no  entry  is  found,  the  vehicle 
is  assumed  to  have  cut  out  of  the  right  lane  and  is  plotted  using  method 
one  until  it  reaches  the  midpoint  of  the  sensor  region.  If  an  entry  is 
found,  the  location  is  calculated  using  both  methods. 

Method  two  uses  linear  interpolation  of  the  simulation  time  and  the 
sensor  entry  times  to  determine  the  vehicle  position.  This  method  causes 
the  vehicles  to  arrive  at  the  next  sensor  at  the  proper  time,  and  a  smooth 
motion  of  the  vehicles  is  achieved.  The  vehicle  location  is  calculated 
using  the  following  equation: 

IXLOC  =  TIME  -  RAWDAT(.I,LCNT,2) *  20Q 

(RAWDATQ  -  1,NCNT,2)  -  RAWDAT(I,LCNT,2)) 

+  XSNS  (I)  +  0.5 
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The  first  term  is  the  linear  interpolation  term,  and  the  second  and 
third  terms  are  the  same  as  used  in  method  one.  The  distance  between 
sensors  is  200  feet.  This  distance  is  multiplied  by  a  fraction,  less  than 
one,  which  is  determined  by  the  amount  of  time  since  the  sensor  entry  occurred. 

After  the  vehicle  location  has  been  calculated  using  both  methods,  the 
results  are  recorded,  the  vehicle  flag  is  set,  and  the  routine  advances 
to  the  next  entry.  When  the  lists  for  all  four  sensors  have  been  examined, 
control  is  returned  to  the  main  program. 

The  second  subroutine,  FRMOUT,  writes  the  required  frame  data  into  an 
on-line  file.  The  flow  chart  for  FRMOUT  is  shown  is  figure  3.    FRMOUT 
is  called  immediately  after  the  XVEH  subroutine.  The  output  data  consist 
of  the  simulation  time,  the  green  band  status,  and  the  vehicle,  locations 
and  is  written  such  that  each  record  is  eighty  characters  in  length.  The 
data  are  subsequently  used  by  the  drawing  program  to  draw  the  movie  on  a 
frame  by  frame  basis  at  the  CRT  terminal.  The  next  section  describes  the 
terminal  hardware  and  the  program  used  to  draw  the  movie  frames. 

The  Drawing  Process 

The  drawing  of  each  frame  of  the  movie  was  accomplished  with  a  Tektronix 
Model  4010  Graphics  Terminal  and  the  supportive  Tektronix  PLOT-10  Graphics 
Software.  The  4010  is  a  storage  tube  CRT  terminal  with  a  typewriter  key- 
board for  operator  input.  There  are  also  operator  controls  for  movement  of 
the  drawing  cursor,  but  they  were  not  used  in  this  application  of  the  terminal. 

The  PLOT-10  software  is  a  set  of  subroutines  available  for  use  by  the 
computer  from  the  University  of  South  Florida's  Computer  Library.  The  sub- 
routines are  user  oriented  and  allow  the  drawing  of  pictures  through  programmer 
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Figure  3.   Flow   chart   of   the  FRMOUT  subroutine. 
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control  of  the  movement  of  the  CRT  writing  beam  and  its  on-off  status .  When 
the  beam  is  on,  a  line  is  drawn  on  the  CRT  face.  When  off,  the  beam  is 
moved  without  drawing  a  line.  Among  the  other  subroutines  available  are 
routines  which  initialize  the  terminal,  control  switching  to  alphanumeric 
mode,  and  end  a  drawing  session.  Descriptions  of  the  subroutines  and 
examples  of  their  use  are  given  in  the  Terminal  Control  System  User's 
Manual. 

The  drawing  program  consists  of  a  main  program  and  a  series  of  subroutines 
The  main  program  allows  the  operator  to  control  the  drawing  mode  and  to  input 
variable  values .  The  subroutines  call  the  PLOT-10  routines  to  draw  various 
portions  of  the  movie  frame.  Figure  4    is  a  flow  chart  for  the  drawing 
program. 

The  main  program  initializes  indexing  variables  and  the  terminal.  The 
initialization  of  the  terminal  sets  the  transmission  rate  of  the  terminal 
in  characters  per  second.  It  also  erases  the  screen,  causes  entry  into 
alphanumeric  mode,  sets  margins,  and  carries  out  various  graphics  functions 
required  before  any  drawing  can  be  done.  The  program  then  instructs  the 
operator  to  enter  the  drawing  mode  to  be  used. 

The  program  allows  two  drawing  modes:   (1)  movie  mode  and  (2)  search 
mode.  If  the  operator  selects  the  movie  mode,  he  is  prompted  to  enter  a 
number  which  sets  the  number  of  frames  to  be  drawn  before  another  mode 
selection  can  be  made.  The  program  then  requests  the  operator  to  enter  the 
film  code  or  name  to  be  displayed  in  the  movie  frames  and  to  enter  the 
starting  frame  for  the  drawing  session.  The  program  reads  from  the  frame 
data  to  the  starting  frame.  When  the  starting  frame  is  reached,  the  program 
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calls  the  subroutines  which  draw  the  picture  and  branches  to  another  portion 
of  the  program  determined  by  the  drawing  mode  selected.  In  either  case,  the 
terminal  bell,  actually  an  electronic  oscillator,  is  sounded  to  indicate  the 
frame  drawing  is  complete. 

If  the  movie  mode  was  selected,  the  program  delays  advancing  to  the  next 
frame.  The  delay  is  achieved  by  causing  short  movements  of  the  beam,  in  an 
off  status,  along  the  bottom  of  the  display.  The  delay  allows  the  frame  to 
be  photographed  before  the  display  is  erased.  The  program  then  tests  whether 
the  number  of  frames  required  until  the  next  mode  selection  have  been  drawn. 
If  not,  the  program  advances  one  frame  and  calls  the  drawing  subroutines. 
If  the  number  of  frames  selected  have  been  drawn,  the  program  interrupts 
to  allow  the  re-entering  of  the  drawing  mode.  The  operator  can  again  select 
which  mode  he  wishes  to  use.  If  he  selects  the  movie  mode,  the  program 
will  request  the  number  of  frames  to  be  drawn  before  the  next  interrupt  and 
the  drawing  process  will  resume. 

The  search  mode  of  operation  was  used  in  the  program  development  stage 
to  provide  a  capability  for  manually  stepping  through  the  recorded  data  base 
without  having  to  view  each  frame  in  a  fixed  sequence. 

There  are  six  subroutines  used  for  drawing  the  various  portions  of  the 
movie  frame.  Three  of  the  subroutines  draw  the  various  types  of  vehicles. 
TRKDRW  is  called  to  draw  vehicles  which  have  been  classified  as  trucks. 
CARDRW  is  called  to  draw  cars,  and  CYLDRW  is  called  to  draw  motorcycles . 
Each  of  the  three  subroutines  calls  a  special  subroutine  which  draws  the 
wheels  for  the  vehicles.  The  two  remaining  subroutines  BCKRND  and  GRBDRW 
are  used  to  draw  the  background  and  green  band  display  respectively.  The 
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BCKRND  subroutine  draws  and  labels  the  freeway,  ramp,  sensor,  and  merge 
point  locations.  It  also  writes  the  film  code,  the  frame  number,  and  the 
simulation  time.  The  GRBDRW  subroutine  processes  the  green  band  data  and 
in  accordance  to  the  band  status,  draws  a  line,  representing  the  light 
being  on,  or  simply  moves  over  the  light  location  without  drawing  a  line. 
The  subroutine  also  marks  the  ends  of  the  green  band  display  to  facilitate 
subsequent  data  reduction  when  viewing  the  films. 

Making  the  Movies 

The  physical  equipment  used  to  make  the  movies  include  the  terminal, 
the  camera,  and  the  automatic  shutter  actuator.  Figure    5  is  a  picture 
of  the  equipment  set  up.  When  making  a  movie,  the  terminal  face  plate  is 
removed  to  increase  the  brightness  of  the  display,  and  the  camera  is  mounted 
on  a  sturdy  tripod  to  insure  camera  stability  during  the  period  of  filming. 

The  camera  used  was  a  Bolex  H16.  It  is  a  spring- driven,  16  millimeter, 
motion  picture  camera  with  a  single  frame  capability.  Next  day  development 
capability  at  a  local  television  film  department  prompted  the  selection  of 
Kodak  VNF  7240  color  film.  The  exposure  for  single  frame  photography  is 
controlled  by  the  F-stop  which  was  set  at  1.1  for  making  the  movies.  A  cable 
release  and  adapter  were  attached  to  the  camera  to  reduce  the  chance  of 
camera  movement  when  the  shutter  was  released.  Any  camera  movement  would 
cause  the  movie  to  jitter  when  shown  at  the  normal  frame  rate.  The  cable 
release  can  be  actuated  by  the  operator  or  automatically. 

Figure    6  is  a  block  diagram  of  the  automatic  shutter  release 
mechanism  (ASRM) .  The  major  components  of  the  ASRM  are  a  sound  switch,  a 
silicon-controlled  rectifier,  a  relay  driver,  a  relay,  a  solenoid,  and  a 
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power  switch  for  the  sound  switch. 

When  the  terminal  bell  sounds,  the  sound  switch  triggers  the  silicon- 
controlled  rectifier  (SCR)  •  Th-e  SCR  in  turn  triggers  the  relay  driver  which 
actuates  the  relay.  The  relay  completes  the  circuit  for  the  solenoid  power, 
and  the  solenoid  pushes  the  cable  release  to  photograph  the  displayed  movie 
frame.  Once  triggered,  the  sound  switch  remains  on,  and  thus  it  was  nec- 
essary to  place  a  switch  between  the  sound  switch  power  supply  and  the 
sound  switch  itself.  The  switch  turns  off  the  sound  switch  power  when  the 
solenoid  is  actuated,  thus  closing  the  loop  to  provide  automated  operation 
without  operator  intervention. 

The  ASRM  unit  was  constructed  by  interfacing  the  various  components. 
The  sound  switch  operates  from  a  1.5  VDC  battery  and  when  triggered  provides 
a  0.7  volt  output.  Since  this  voltage  is  not  adequate  to  drive  a  solenoid 
large  enough  to  trigger  the  camera,  it  was  used  to  trigger  the  SCR.  The 
SCR  is  used  as  a  switch  to  provide  a  ground  condition  for  the  relay  driver. 
The  relay  driver  circuitry  was  originally  used  to  drive  a  small  12  VDC 
solenoid  and  was  salvaged  from  an  auto  tape  player.  A  12  VDC  relay  was 
substituted  for  the  solenoid.  The  relay  provides  the  switching  capability 
to  control  a  solenoid  operating  on  110  VAC  line  voltage.  The  solenoid 
pushes  the  cable  release  and  near  the  end  of  its  stroke  turns  off  the  1.5 
VDC  power  to  the  sound  switch  by  mechanical  actuation  of  a  microswitch. 
Turning  off  the  sound  switch  causes  the  SCR,  the  relay  driver,  the  relay, 
and  finally  the  solenoid  to  turn  off.  The  solenoid  returns  to  its  un- 
activated  position  which  allows  the  microswitch  to  turn  the  sound  switch 
back  on.  The  unit  is  then  ready  for  the  next  activation  by  the  terminal 
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bell.  The  ASRM  is  also  provided  with  a  switch  to  disable  the  sound  switch. 
This  allows  the  system  to  be  turned  off  while  positioning  adjustments  are. 
made  and  prevents  undesired  triggering  of  the  unit. 

After  the  operator  has  set  up  the  equipment,  he  logs  onto  the  terminal. 
He  then  types  in  the  command  "EXEC  GBX".  The  GBX  routine  is  a  series  of 
terminal  commands  that  allocate  the  data  sets  required  to  execute  the  program 
and  then  calls  the  drawing  program.  The  drawing  program  itself  is  stored  in 
the  form  of  a  load  module  which  has  already  been  compiled.  When  this  module 
is  called,  the  execution  of  the  drawing  program  described  in  the  previous 
section  begins. 

The  operator  enters  the  search  mode  and  draws  the  first  frame.  The 
camera  is  then  focused  and  the  starting  frame  is  photographed  manually.  The 
operator  can  then  turn  on  the  ASRM  and  instmct  the  drawing  program  to  enter 
the  movie  mode.  After  inputing  the  number  of  frames  to  be  drawn  before  the 
next  mode  interrupt,  the  program  begins  to  automatically  draw  and  photograph 
the  movie  frames . 

The  exposed  film  is  developed  and,  when  played  back  at  24  frames  per 
second,  shows  the  dynamic  movement  of  the  vehicles  and  the  green  bands  on  a 
real  time  basis  as  generated  by  the  Green  Band  Control  Program  Simulation. 

Analysis  of  Movie  Data 

Recall  that  two  methods  are  used  to  calculate  the  vehicle  locations. 
The  first  method  depicts  the  effects  of  using  the  measured  velocity  between 
the  sensors  and  results  in  an  apparent  jerking  motion  of  the  vehicles.  The 
second  method  uses  linear  interpolation  to  achieve  smooth  vehicular  motion. 
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Figures     7  through     9  show  the  effects  of  the  two  methods  of 
calculating  the  vehicle  location.  Each  vehicle  along  the  freeway  is  dis- 
played twice  in  the  frame.  The  top  vehicle  shows  the  location  of  the  vehicle 
as  calculated  by  linear  interpolation  and  moves  smoothly  along  the  freeway. 
Th6  bottom  vehicle  is  the  vehicle  which  appears  to  jerk. 

Figure     7  shows  two  vehicles  (with  two  representations  of  each  vehicle) 
approaching  the  sensor  F3  location.  Note  that  the  top  representation  of  both 
vehicles  is  ahead  of  the  corresponding  bottom  vehicle.  Since  both  top  vehicles 
are  pulling  ahead,  they  must  have  increased  their  velocities  after  crossing 
over  sensor  F  4.  The  top  vehicles  will  arrive  at  sensor  F5  when  the  actual 
sensor  entry  occurred,  while  vehicles,  whose  positions  are  projected  ahead 
by  maintaining  the  sensor  F4  velocities,  will  be  jerked  forward  to  the  sensor 
location.  Figure    8  shows  the  top  vehicle  about  to  cross  the  sensor.  The 
next  frame,  Figure    9,  shows  that  the  bottom  vehicle  has  jumped  forward  to 
the  sensor. 

The  crossing  of  sensor  F3  by  the  lead  vehicle  has  given  the  Green  Band 
Control  Program  Simulation  an  update  for  the  ETA  of  the  vehicle.  Since  the 
vehicle  velocity  has  increased,  its  ETA  has  decreased  as  the  vehicle  will 
arrive  at  the  merge  point  sooner.  The  change  in  ETA  has  caused  the  trailing 
edge  of  the  first  band  to  move  forward  along  the  display,  as  can  be  seen  in 
Figures    8  and    9.  The  band  edge  movement  occurred  within  a  period  of 
42  milliseconds  and  is  an  example  of  an  undesired  instability  occurring  in 
the  operation  of  the  on-line  system. 

Several  movies,  using  various  simulated  band  control  strategies,  were 
made  in  the  manner  presented  in  this  section.  A  detailed  analysis  of  the 
movies  was  carried  out  and  a  finalized  band  control  strategy  was  selected  for 
implementation  in  the  on-line  system  at  the  August,  1976,  TAC  meeting. 
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The  movies  have  been  invaluable  in  visually  correlating  the  unstable 
band  edge  movements  to  the  vehicle  actions  along  the  freeway.  In  the  first 
film  produced,  it  was  noted  that  the  trailing  edge  of  the  bands  would  allow 
a  ramp  vehicle  to  merge  very  close  to  a  freeway  vehicle.  A  later  simulation 
run  showed  the  generation  of  a  band  whose  trailing  edge  overlapped  the  leading 
edge  of  the  next  band.  An  investigation  of  the  simulation  found  a  sign  change, 
carried  out  by  the  on-line  system,  was  not  accounted  for  in  the  simulation. 
The  incorrect  sign  caused  the  trailing  edge  of  all  bands  to  be  displaced 
toward  the  beginning  of  the  display.  Therefore,  the  films  have  not  only  proven 
to  be  an  aid  in  analysis  of  the  band  edge  instability,  but  have  contributed 
to  the  validation  of  the  simulation's  representation  of  the  on-line  system. 

The  requirement  to  redraw  the  entire  picture  for  each  frame,  imposed  by 
the  use  of  a  storage  tube  CRT,  greatly  increases  the  time  required  to  produce 
a  movie.  With  proper  syachronization   a  refreshing  CRT  terminal  would  allow 
the  photographing  of  the  simulation  in  real  time.  With  the  equipment  used  on 
this  project,  it  required  eight  to  nine  hours  of  terminal/operator  time  to 
produce  a  thirty  second  movie. 
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SECTION  III:  FINAL  BAND  SMOOTH  ALGORITHM 

In  order  for  an  algorithm  to  reduce  or  smooth  the  band  edge 
instabilities,  it  must  first  identify  the  area  of  instability,  obtain 
some  measure  of  the  size  of  the  edge  movement,  and  classify  the  change 
as  a  particular  type  of  movement. 

The  identification  of  the  edge  movement  is  obtained  through  the 
comparison  of  the  current  display  status  with  the  new  directed  out- 
put from  the  normal  GBS  and  GBUD  processing.  The  comparison  takes 
place  by  adding  the  individual  light  statuses,  0  or  1  in  the  on- 
line system,  and  looking  at  the  result.  Where  both  values  were  O's 
the  sum  will  be  a  0,  and  where  both  were  l's  the  sum  will  be  2.  But, 
where  the  values  are  unlike  the  result  will  be  a  1  and  the  1  will  in- 
dicate a  change  has  taken  place. 

For  each  light  status  change  a  1  will  be  generated.  Therefore, 
the  number  of  l's  in  a  series  will  give  a  measure  of  the  size  of  the 
band  change. 

The  classification  of  the  type  of  change  can  be  made  by  looking 
at  the  values  just  before  and  after  the  l's.  For  example,  if  the  value 
just  before  the  l's  was  a  2  and  the  value  after  was  a  0,  we  are  dealing 
with  a  change  in  a  leading  band  edge.  Figure  10   illustrates  this, 


Current  display 
New  command 
Sum 


111111100000 
111111110000 
222222210000 


Change  in  band  edge 


FIG.   10 
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In  the  example  only  one  1  was  generated  by  the  change  and  in 
a  forward  direction.  This  is  a  normal  advance  of  a  leading  band  edge. 
So  one  can  classify  the  type  of  change  by  the  values  before  and  after 
the  l's.  The  example  would  then  be  a  2,0  type  change.  If  the  1  had 
occurred  at  either  end  of  the  display  a  value  of  -1  would  be  assigned 
to  the  appropriate  before  or  after  value. 

In  classifying  the  band  movement,  the  algorithm  attempts  to 
smooth  the  change  and  reduce  rapid  adjustment  of  the  band  edges. 
The  nine  possible  combinations  for  the  before  and  after  values  are 
listed  below. 


0,0 

2,0 

-1,0 

0,2 

2,2 

-1,2 

2,-1 

2,-1 

-1,-1 

In  addition  to  the  classifications  above  the  algorithm  must 
determine  if  the  band  edge  change  was  either  forward  or  backward 
along  the  display.  This  is  accomplished  by  testing  the  value  of  the 
current  display  at  the  location  of  the  1  or,  in  the  case  of  greater 
than  one  1,  the  first  1  of  the  series .  Depending  on  the  particular  type 
of  edge  (leading  or  trailing)  this  value  will  give  the  direction  of  the 
change.  For  a  leading  edge  Fig. III. 1, a  0  would  indicate  a  forward 
movement.  The  values  for  a  trailing  edge  would  be  the  opposite  of 
the  leading  edge  for  the  same  movement. 

At  present  when  a  ETA  update  causes  an  adjustment  in  the  band  edge, 
the  edge  is  moved  immediately  and  takes  place  in  one  output  cycle. 
With  an  output  every  .01  seconds  the  band  edge  normally  moves  between 
.44  and  .66  feet  per  cycle.  If  the  output  cycle  was  lengthened,  the  move- 
ment between  cycles  would  be  increased. 
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Cycle  time 

Movement : 

@  44  ft/ sec. 

@66ft/sec. 

.02 

.88ft 

1.32ft 

.03 

1.32ft 

1.98ft 

.04 

1.76ft 

2 . 64ft 

.05 

2.20ft 

3.30ft 

.06 

2 . 64ft 

3.96ft 

.07 

3.08ft 

4.62ft 

It  can  be  seen  that  above  .06  seconds  the  band  edge  at  66ft/sec 
advances  greater  than  one  light.  Therefore,  if  smooth  movement  under 
normal  progression  is  desired,  the  maximum  time  between  outputs  would 
be  .06  seconds. 

When  it  has  been  determined  by  the  algorithm  that  an  adjustment 
is  necessary,  and  does  not  involve  a  possible  cut  in,  the  edge  is 
adjusted  one  light  (4ft)  per  output  cycle.  This  leads  to  adjustment 
speeds  of  the  band  edges  at  various  output  cycle  times  as  shown  below. 


Cycle  time 

Edge  Adj 
ft/sec 

ustment  Speed 
mph 

.02 

200.00 

136.36 

.03 

133.33 

90.91 

.04 

100.00 

68.18 

.05 

80.00 

54.54 

.06 

66.67 

45.46 
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The  table  shows  that  the  band  edge  adjustment  speed  can  be 

changed  by  changing  the  time  between  outputs.  If  a  .06  second  cycle 

time  were  selecteu  the  band  edge  adjustments  would  take  place  at 

slightly  higher  than  the  merge  speed.  However,  since  the  normal  edge 

can  be  moving  at  66ft/sec  the  actual  adjustment  of  an  edge  may  take 

considerable  time.  For  example  if  the  band  edge  moved  forward  four 

lights  or  16ft  and  was  in  the  45  mph  segment  this  adjustment  would  be 

completed  in  16     or  23.88  seconds  which  is  unacceptable.  Times 

66.67-66 

for  adjustment  of  the  same  16  feet  adjustment  at  the  various  cycles 
times  are  given  below. 


Cycle  time 

Time  to  adj 
@  66ft/sec 

list 

@ 

16ft  (sec.) 
44ft/sec 

.02 

0.12 

0.10 

.03 

0.24 

0.18 

.04 

0.47 

0.29 

.05 

1.14 

0.44  (Implemented  in  Revised  Tampa  S 

.06 

23.88 

0.71 

The  algorithm  has  built  in  safeguard  for  vehicle  cut  ins.   If  a 
vehicle  cuts  into  an  all  green  band  segment  the  control  program  will 
generate  a  break  in  the  band.  The  minimum  break  would  consist  of  a 
leading  and  trailing  headway  and  the  length  of  the  vehicle.  These 

headway  values  are  1.2  and  0.4  seconds,  respectively.  Therefore  a  minimum  (neglecting 
the  vehicle  length)  break  would  be  1.6  seconds.  At  44ft/sec  and  66ft/sec 
it  works  out  to  be  70.4  to  105  feet.  On  the  display  this  would  be  17 
to  26  lights.  Therefore  within  the  algorithm,  when  15  or  more  lights 
are  extinguished  it  is  assumed  to  be  a  vehicle  cut-in.  Also  special 
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consideration  was  given  to  cases  occurring  at  the  ends  of  the  display 
where  a  cut-in  may  not  extinguish  15  lights.  Here  the  algorithm 
assumes  a  cut-in  if  2  or  more  lights  are  extinguished.  When  a  possible 
cut-in  occurs  the  display  is  immediately  changed  to  reflect  the 
occurrence . 

A  desired  feature  of  the  system  is  that  no  bands  be  generated 
other  than  at  the  start  of  the  display.  The  generation  of  a  band  in 
the  midst  of  extinguished  lights  would  cause  a  series  of  Is  to  appear 
between  a  leading  and  following  0.  Also  the  commanded  destruction  of 
a  band  in  the  event  of  a  gap  closure  would  cause  this  combination  of 
leading  and  trailing  values.  In  either  case  the  algorithm  causes 
extinction  of  the  lights  and  thus  shows  immediately  any  gap  closures 
(complete  band  destruction)  and  eliminates  generation  of  the  undesired 
new  bands. 

The  attached  flow  chart  for  the  algorithm  shows  the  possible 
cases  and  the  measures  taken  for  each. 
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Set  l's  to  O's 


Current  Display 

SUM 

New  Command 


OiliO 

'       1 


OlllO 


New  Display 


Band  Extinction  (Gap  Closure) 


Undesired  New  Band 


Figure  2  -  Band  Creation  or  Extinction  Along  the  Display 
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NOTE:  CD=Current  Display 
NC=New  Command 
ND-New  Display 


Cut-out 


Figure  12  -  Trailing  Edge  Variations  Along  the  Display 


42 


change  l's 
to  O's 


<T  light  on  currently  y 


change  l's 
to  O's 


change  starting  1  to 
a  0  and  ending  1  to 
a  2 


CD 

SUM 
NC 


0    1-1 


0:i:-i 


0   !  li-1 


ND 


Cut  -  in 


Undesired  New  Band 


Normal 


0  i  1  i-l 


undesired  New  Band 


NOTE:  CD  =  Current  Display 
NC  =  New  Command 
ND  =  New  Display 


Figure  13  -  Trailing  Edge  Variations  at  End  of  Display 
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Figure  14  -  Leading  Edge  Variations  Along  the  Display 
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Figure  15  -  Band  Segmentation  Along  the  Display 
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Figure  16  -  Leading  Edge  Variations  at  End  of  Display 
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Figure  18  -  Trailing  Edge  Variations  at  Start  of  Display 
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Figure  19  -  Complete  Display  Variations 
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APPENDIX  A 
FORTRA\  LISTINGS  OF  THE  DRAWING  PROGRAM  .AND  THE 
GREEN  BAND  CONTROL  PROGRAM  SIMULATION 
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APPENDIX  B 
CONTROL  SYSTEM  SOFTWARE  CHANGE  DOCUMENTATION 
(NARRATIVES,  FLOW  CHARTS,  LISTINGS) 

MEMORY  USAGE  MAP 
ADDRESS                    PROGRAM 
0  -  IF                     INTERRUPTS  * 
20  -  3B6                    EXECUTIVE  * 
3B7  -  48F  


490  -  536  MULTIPLY/DIVIDE  * 

537  -  5AC  

5AD  -  7E9  OPERATOR  MONITOR 

7EA  -  7FF  

800  -  AE7  GREEN  BAND  UPDATE 

AE8  -  B7F  

B80  -  FD4  HIGHWAY  VEHICLE  PROCESSOR  * 

FD5  -  FFF  


1000  -  15C8                 SITUATION  DISPLAY  * 
15C9  -  15E1  


15E2  -  15FF  CHECK  LIGHT  IN  BAND 

1600  -  1776  DATA  LOGGER  * 

1777  -  17FF  


1800  -  1F82  GREEN  BAND  STATUS 

1F83  -  1FFF  

2000  -  2269  VELOCITY  -  VOLUME 

227A  -  23C7  RING  BUFFER 

23FB  -  23FF 


2400  -  24B8  TABLE  COPY  * 

24B9  -  25F0  BAND  TRIM 


*  Note  -  This  Routine  or  Data  Table  was  not  modified  from  its  original  state. 
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MEMORY  USAGE  Ccont.) 


25F1  - 

27FF 

2800  - 

2DF9 

2DFA  - 

332F 

3330  - 

390B 

390C  - 

3EE7 

3EE8  - 

3EFD 

3EFE  - 

3EFF 

3F00  - 

3FF4 

3FF5  - 

3FFE 

FAULT  MONITOR 
TAPE  BUFFER  ZERO* 


TAPE  BUFFER  ONE 

CHECK  AND  UPDATE  SECOND  COUNT 


LOAD  AND  DUMP 
SENSOR  CHECKOUT 


*Note  -  This  Routine  or  Data  Table  was  not  modified  from  its  original  state, 
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OPERATOR  MONITOR  SUBPROGRAM  CHANGES 

Three  commands  were  added  to  OPERATOR  MONITOR: 

'I'  Inhibit  information  type-outs, 

'U'  Uninhibit  (permit)  information  type -outs  and 

'S'  Print  Sensor  counts. 

To  implement  the  additions,  control  was  intercepted  following  the 
last  check  in  the  command  list,  where  it  would  transfer  to  the  invalid 
input  handling.  A  JMP  command  between  labels  OPLQ  and  OPMQ  was  changed 
to  JMP  OPJB  to  transfer  to  the  added  command  checks. 

At  OPJB,  at  the  front  of  the  routine  the  command  is  checked  for  the 
additions  and  if- one  is  not  found,  control  transfers  to  the  error  handling; 
JMP  EPSQ.  For  'I1,  ITYP  is  set  to  1  indicating  type-outs  are  permitted; 
and  for  'S' ,  CTFG,  count  flag,  is  set  to  1  (it  is  reset  to  0  by  routine 
doing  type-out.) 
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CONTINUATION 
OF  OPERATOR 
COMMAND  CHECK 


OPERATOR 
ENTERED 
INVALID 
COMMAND 


INHIBIT 
TYPE -OUTS 

ITYP+-  1 


PERMIT 
TYPE-DUTS 

ITYP-*-   0 


FLAG  COUNT 
REQUEST 

CTFG  <-  1 


INIS 


INIS) 


INIS 
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EXTENSION   FOR    OPERATOR    COMMAND   INPUT 

1  'EXTENSION    FOR    OPERATOR    COMMAND    INPUT 

2  * 

3  *      ADDED    12/30/76      AHEAD   OF   PROGRAM 

4  * 


INHIBIT   TYPE-OUTS? 


PAGE 


05AD 

5 

OPJB 

EQU 

$ 

05AD 

07C9 

6 

CL3 

'I' 

05AE 

0860 

7 

SEQ 

05AF 

15B4 

J  MP 

OPJC 

0530 

87D0 

9 

LDW 

'=1 

05B1 

10 

OPSF  ■ 

EQU 

05B1 

008A 

1  1 

S  MB 

I  TYP 

05B2 

7003 

12 

STW 

ITYP 

05B3 

17  A  0 

13 

14 

* 

J  MP 

I  MIS 

05B4 

15 

OPJC 

EQU 

$ 

053  4 

07  D5 

16 

CLB 

'IT 

053  5 

0860 

17 

SEQ 

05B6 

15B9 

18 

J  MP 

OPJD 

0537 

0100 

19 

CLR 

05B8 

15B1 

20 
21 

* 

JM? 

OPSF 

0539 

22 

OPJD 

EQU 

$ 

0539 

07  D3 

23 

CLB 

•s* 

05BA 

0860 

24 

SEQ 

05BB 

1735 

25 

J  MP 

EPSQ 

05BC 

S7D0 

26 

LDW 

=  1 

05BD 

008A 

27 

SMB 

CTFG 

053E 

7004 

28 

STW 

CTFG 

05BF 

17A0 

29 
30 

J  MP 

I  WIS 

NO,    CHECK    OTHER    RESPONSES 
YES.    SET    FLAG 


I  N    FAULT    MONITOR 


PERMIT    TYPE -OUTS? 

NO,    CONTINUE 
RESET   INHIBIT    FLAG 

WANT   SENSOR    ACTIVATION    COUNTS? 

**    INVALID    OPERATOR    ENTRY  ** 
YES,    FLAG    FAULT    MONITOR 
FOR    JOB 
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31  '    OPERA TOK    MONITOR    SUBPROGRAM   REVISE! 

32  t    VERSION    OF   9-29-7'' 

53    *    OPERATOR    INTERRUPT    HANDLING   ROUTINE 

34  OR1G         X?5CO* 

05CO    0031  33  DSS  1 

05C1     0100  3G  CLft 

0502  06CF  37  L^B  X'CF' 
05C3  7046  38  STW  ERRUi 
05C4    102  0  39                         J  MP        o  EG  I 

0503  40  RES         X,03D5*-$ 
004  6  4  1    ERR CM  EQ U        X* 00 46' 
0020  42   EEGT  EQ  U         X'0020* 

05D5    0100  43    PC1I2A  CLR 

05DC    06C0  44  LLB         X'C3  ' 

05D7    7046  43  STW         ERROR 

05D3    17A0  46  J  MP         H.'IS- 

0  5D9  4  7  RES         2 

48   *    TAPE    MESSAGE   RATA    RECEIVING    ROUTINE 

03BB    OSFO  49    PCM.  1  SS3  IF   RATA    LOGGING    NOT    ON 

05DC    1  5  DE  50  J  MP         PCH  1 A         R  EJ  EC  T    MES  S  AG  ES 

05DD    1765  31  J  MR         Er^GQ 

05DE   87CC  52    PCR1A  LEW         CHAQ 

05 DF    F7D1  5  3  CMW         =X '  &D  *         CR? 

05E0    0870  54  SNE 

05E1     15E7  55  JMP         PCH  IE  YES,    MESSAGE    FINISHED 

05E2    862B  56  LEW         PN4Q 

05 E 3  F04  5  57  CMW        PN3T 

05E4    03^0  58  SLS 

05E5    15H7  59  JMP         PCH  IE         BUFFER    FULL 

05 E6    1657  60  JMP         OPAR  MORE  ROOM    IN   BUFFER 

05  E7    871)2  61    PCH  IB  LEW         =X,-FFFFi 

05E8    7629  62  STW         FPNQ  SET   BUFFER    FULL    FLAG 

05E9    8629  63    PCH  1  C  LDW         FPNQ 

05EA    0300  64  SAZ 

05EB    15E9  65  JMP         PCH1C         WAIT    TILL    RATA   LOGGER    GRABS 

05EC    17A0  66  JMP         INIS  MESSAGE    FROM   BUFFER 

05  ED  67  RES         X'05F8'-$ 

05FS  68   OPTS  RES         37  T TY    INPUT  BUFFER 

0S1D  69  RES         X'G61E*-$ 

70    *    EXEC    LINKAGE 

0043  71    PN1Q  EQU   X'0043'      BYTE   BEGIN    OF    COMMAND    BUFFER 

0027  72    OPIT  EQU    X'0027*       KB D   INTERRUPT   LINK    ADDRESS 

0028  73    OPPT  EQU   X'0028'       PNT   INTERRUPT   LINK   ADDRESS 

0044  74    PN2T  EQU    X'0044'       FIRST    EMPTY   BYTE 

0045  75    PN3T  EQU   X'0045'      LAST    EMPTY   BYTE+1 

0042  76    FL9T  EQU    X'0042*      PRINT    FLAG    0    WHEN    PRINTING 

2801  77    FLMT  EQU   X'2801'       FAULT   MONITOR    ENTRY 

2802  75    TMREQ  EQU   X'2802'       TIME   PRINT  REQUEST    FLAG 
2303  79    1TYP  EQU        X*2803'       INHIBIT    TYPE-OUT    FLAG 

2804  80    CTFG  EQU        X'2804*      PRINT   SENSOR    ACTIVATION    FLAG 

061 E   0000  81    FPAQ  D         0    FLAG   AND   COUNTER    FOR    COMMA 

061 F   0000  82    FP3Q  D         0    FLAG    AND   COUNTER    FOR    T 

0620  0000  83    FPCQ  D         0    FLAG    AND   COUNTER    FOR 

0621  0000  84    FPDQ  D         0    SET    FOR    WA I TI NG-FOR-A -CHANGE 

0622  0000  85    FPEQ  D         0 

0623  0000  86    FPFQ  D         0    FLAG    AND   COUNTER    FOR    1ST   LOCATION 

87   *  CHARACTERS    (BEFORE    T) 
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PAGE 


062  5 
0626 
0527 
0628 
0G29 
062A 
062B 

062  C 

062  D 

062E 

062F 

0630 

0631 

0632 

0633 

0634 

0635 

0  6  3  6 

0637 


0000 

0000 
03  0  0 
0000 
0000 

000  0 
0000 
OBFO 

1  S3  8 
008A 
1001 
6  63  7 
87B4 
77B2 
15D5 
87B3 
77B2 
9  637 
1800 
0000 


SB 

89 

90 

91 

92 

93 

94 

95 

96 

9  7 

9  8 

99 

100 

101 

102 

103. 

104 

105 

106 

107 

103 

109 

110 


FPGQ 
* 

FPHQ 
FPJQ 

FPKQ 

FPMQ 

FPNQ 

FPQQ 

PN4Q 

* 

OP  MS 

OPXW 


INRT 


1  ill  1 1 


u 

D 
D 
D 
D 

D 


MP 


JMF 


LDW 
S  TW 
J  MP 
LDW 
S-TW 
LDX 
J  MP 
DAT 


0    FLAG    AND   COUNTER    FOR    LAST   LOCATION 

CHARACTERS    (AFTER    COMMA) 
0    FLAG    AND   COUNTER    FOR    CHANGE    CHARACTERS 
0    DIGIT    COUNTER    .CLR    AFTER    EVERY   4 
0    FLAG   AND   COUNTER    FOR    ; 
0    TAPE    MSG-OP    MOM    INPUT    FLAG 
0    TAPE    MSG    FINISHED    FLAG 
0    ERROR    FLAG 

OPTS+OPTS    LOCATION    NEXT   CHARACTER    TO 
BE  PROCESSED 


OPAQ 
FLMT 
FL  MI- 
TE MY 
MODI 
RETZ 

PCH.2A 
MODN 
RETZ 
TEMY 
*    0 
A    0 


OPERA 


MONITOR  ENTRY  LOOP 


EXIT    TO    FAULT    MONITOR 
INITIALIZATION    ENTRY 

SET  RETURN    TO   THIS   CODING 

SET    UP    NORMAL   RETURN 


INITIALIZATION   RETUR 
SAVE   RETURN   INDEX 
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i'JNITOP.    SUBPROGRAM 


0S33 

c  0  4  4 

1  1 
12 

JCi? 

F043 

1  3 

0S3A 

3  3  -3  0 

14 

0553 

i  62  D 

15 

0o5C 

0313 

16 

0S5D 

£7L'3 

17 

j  j5_ 

7  331 

12 

J  r  3  r 

?  3  4  3 

IS 

:s  ij 

UwPJ 

?  j 

;.'..! 

31  00 

2  i 

~>  -"  '•  *> 

;_0  3 

c.  1 

0-34  5 

3  705 

_5 

"l  .T  /-  ', 

033  3 

■"'  /i 

03-0 

1  :4? 

2  5 

- .-  .- 

-  7  ■«-. 

->  r 

0-347 

7  62  3 

2  7 

564  j 

1  553 

2  2 

0  6  4  9 

07D4 

29 

5C4ri 

\JO'0  J 

50 

0-345 

1353 

5  i 

J':-  3 

?7"  "i 

3  2 

JC40 

0  0  3A 

s  ~ 

0  S  4  E 

7  J 32 

5  ^ 

J  J  4  F 

1  "*    > 
1  I  ,"1  U 

53 

3  3  3  3 

073  0 

5  6 

0-35! 

0  35  0 

37 

03  52 

15A  D 

3  S 

■J  j  2  J 

"!  52  3 

3  3 

0554 

3^31 

40 

3353 

330J 

41 

0555 

t;  c2  3 

42 

33  5  7 

03  E3 

4  3 

035  S 

27D3 

lA 

0559 

7001 

45 

0S5A 

2  04  4 

45 

0553 

F  S2  S 

47 

0t)5C 

0330 

4  3 

06  5  D 

1653 

4  9 

065E 

01  00 

50 

065  F 

9  62E 

51 

0660 

0050 

52 

0661 

5330 

53 

0652 

7  7CC 

54 

0663 

0401 

55 

0664 

0^30 

56 

0665 

652B 

57 

0656 

8628 

58 

0667 

0S20 

59 

0663 

15D3 

SO 

0559 

37CC 

51 

055A 

07AF 

62 

0663 

O'^SO 

63 

03SC 

1725 

64 

066D 

0739 

65 

065  i. 

0530 

65 

055F 

167D 

67 

'    OPERATOR    MOM  TOP.    SUBPROGRAM 
OPAQ      LD'.v   PN2I 

c ••;'.■■'  PN13  something  in  COMMAND  SUFFER? 


OPLC. 


DP  AH 


jm 


?  opx- 


w    i    \1 


fa'JLT  monitor 


DOT 

x'e'.x'-'  enable  keyboard 

t  --.I  ■ 

=  0PI  T 

3  TV 

1 

L  **  <\ 

?:;1S 

3  3  '•': 

CLR 

LD3 

*  0  GET  1ST  CHAR  3r  LI  VE 

CL3 

'  a  '    1 5  I  T  '  X '  ? 

i;  ^.\ 

j,-:p 

OPLi  :.o 

!_•:•.' 

--'.    "IT  FLAG  FOR  0I3S 

S  T* 

rp-.-Q 

J  MP 

j  p  y& 

CL3 

■T*  12  it  time  re::  •  t'? 

S3'a 

j  ;  •:? 

*-  _,_  r 

LDw 

=  1 

c  --p. 

Tm;7; 

j:';3  i  :;is 

CL.L    •«  ■ 

SE3  I-    ::    THE1:    PCM'T    CHANGE    FLAG 

LDX  Fr-i-ii 

1X5  1      BUMP   bL'FFER    POINTER 

HLT 

STX  Pfi43       END    OF   X    OR    M    INPUT    LOGIC   *** 

D3T  X'E'.X'B' 

LDw  =3^1  T 

STJ  1 

LDW  PK2T    YES 

CMw  P:j43    IS    THERE  A    CHARACTER    T3    PROCESS? 

S  3  f\ 

J  HP  OFAR+1         MC* ********  THAYER    PATCH********** 

CLR  YES 

LDX  PN4Q 

so;-; 

LD3    *    0      OLD   RAYTHEON'    PATCH 

STW    CHAQ 

IXS    1 

HLT 

STX   PNlS    BUMP   BYTE   POINTER 

LDW    FPM3 

SA  3 

J  MP    PCH1 

L  D  W    3  H  A  Q 

CL3     '/'    IS    CHARACTER   A    HEX    NUMBER? 

SGR 

J."!?    CPBQ    HAY   BE  A    LEGAL    NON-NUMBER 

CL3     'S' 

SGR 

J  MP    3PBR    HEX    NO.    F0-B9 
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TGR    •10^)1  TOFi    SU3PE03; 


'■12 


CLE     ':• 


J -37.; 
0-^7  ? 

1  -7  I  ■- 

0  5  7  7 
3672 
037? 
0S7A 
0575  i  v 
3  6  7  C  !  7 ; 
J  £  7  D  3  7 
3673  77: 
0S7F  16: 

osso  :-7: 

3C3I    A7; 


)7EB 

_3G 
"2  5 


.20 


170 
173 

;  73 

1  74 
I  7  5 
17t> 
177 


1  73 


j/:p  epe3  illegal  character 

CL3     • ; ' 

S  j  ri 

JVP    OPBi    CHARACTER    IS   BE 

CL5    '3' 

S3  R 


J^IP    EPSC,    ILLEGAL    CHARACTER 
CL3     'F' 

S  G  R 

J  MP    OPES    HEX    NO.    Cl-CS 

130  J-:P    OPE"     "AY   EE  A    LEGAL    MO'.'-NUMBE? 

131  0P3R      SL'3     ='0* 

132  STV    CHA3 

133  J"P  OPCO 
!  34  OPES  3  j?  ='A' 
1 o3                   AJD    -  1 3 

1  33  ST'*1    GhAi 

1  57 


0 "'  ~  -i 

"730 

1  D  J 

0 '.  3  5 

07'.'0 

131 

03  35 

•  S  7^ 

13-2 

0  33  7 

3  w2l  I 

133 

06  S3 

F7J0 

1S4 

OSES 

0350 

!  9  5 

0  63A 

i  ^  j  3 

136 

OSEE 

3  52  5 

137 

0€EC 

"-.  7  DO 

133 

0  5  3  3 

7  62  5 

133 

OSE" 

F7  37 

200 

OSEF 

0340 

201 

0690 

1735 

2  02 

069  1 

F7D0 

203 

0S32 

3350 

2  04 

O-jS  3 

1533 

2  05 

OSS  4 

01  00 

205 

063  5 

A7CC 

207 

0  63  5 

77  C9 

202 

OSS  7 

1S5S 

209 

0SS8 

37CS 

210 

OSSS 

0314 

21  1 

OSSA 

1S95 

212 

0693 

3044 

213 

OS?C 

F62B 

214 

OSSD 

OSSO 

215 

OSSE 

17B5 

216 

063  F 

S61  E 

217 

OSAO 

F700 

213 

0SA1 

0360 

219 

0SA2 

ISA  4 

220 

0SA3 

1SAS 

22  1 

OSA  4 

S7D3 

222 

OSA  5 

1SBS 

223 
224 

•    0? 

OPC 


0PC3 


OPE' 


opd: 


CPFQ 


OPDR 


:rato' 

L  Dv; 


j;:p 

L3.v 


J3P 
LDU 
ADD 
ST1*1 
C.'Va1 
SLS 
J  :•:? 
c;-r; 

c  £2 
J  HP 
CLR 
ADD 
S  TW 
J  "IP 
L  DV; 
SLA 
J  MP 
L  DV 
C  MW 
SEQ 
J  .IP 
LDW 
CMW 
SE^ 
J'W 
J  MP 
LDX 
J  MP 


=  i  command  co:';plet3(  =  ee; 

3PT3    NO 

FPuQ    YES 

=  1     WAITING    FOR    A    CHANGE-: 

3PF3    NO 


:1 

•  p  _:  r 


=  5    ''ORE   THAN    4    CI'G    CHARACTERS? 

EPb£k    YES-ERROR 

=  1     FIRST    CHANGE    NUMBER? 

OPD?    NO 

YES 
CHAQ 
N  UC  Q 
OPAR+I 
IvUCC. 
4 

OP  EG. 
P  ','2  T 
PN4S     EXTRA    CHARACTER    IN    COMMAND    BUFFER? 

EPSQ    YES-ERROR 

FPAQ    NO 

=1    MULTIPLE   PRINT-OUT? 

S+2 
OPFS 
rOPQQ 
OP  OS 
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225 

'    OPS 

:rator  moiji tor  subprogram 

06A6 

9  7D9 

226 

OPFS' 

LDX 

rOPFR 

06A7 

17  8A 

227 

J  MP 

OQCQ 

06AS 

87C7 

228 

OPFR 

LDW 

N  UA  Q 

06A9 

26E0 

229 

JSX 

OPQR    PRINT   START   LOC    OR    1ST   LOG    ON    THE   LI 

06AA 

26B9 

230 

JSX 

OPOQ    PRINT   2   SPACES 

06AB 

9  7  DA 

231 

OPHQ 

LUX 

rOPGQ 

06AC 

16DA 

232 

J  MP 

OPQQ   PRINT    1ST    OR    NEXT    "CONTENTS"    WORD 

06AD 

26B9 

233 

OPGQ 

JSX 

OPOQ 

06AE 

87C7 

234 

LDW 

NUAQ 

06AF 

F7C8 

235 

CMW 

NUBQ    FINISHED? 

0630 

0840 

236 

SLS 

LAST   WORD   PRINTED? 

06B1 

17A0 

237 

J  MP 

1NIS    YES 

06B2 

A7D0 

238 

ADD 

=  1    NO 

06B3 

77C7 

239 

STW 

NUAQ   INCREMENT    INSPECT   LOCATION 

063  4 

E7DB 

240 

AND 

-1   ISOLATE  BITS    13,  14,15 

06B5 

0800 

241 

SAZ 

NEXT   LOCATION    END    IN    0    OR    S? 

06B6 

16AA 

242 

J  MP 

OPHQ-l    NO ' 

06B7 

278A 

243 

JSX 

OQ'CQ   YES.    PRINT  RET-RUB-LF 

06B8 

16A8 

244 
245 

J  MP 

OPFR 
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24  6    '    OPERATOR    MONITOR    SUBPROGRAM 

0609    67CB  24  7    OPOQ      S TX    NUAS 

OSBA    87DC  248  LDW    -X'AO'    SUBROUTINE   TO    PRINT  2    SPACES 

06B3    77CE  249  ST.W   ASCR 

OGBC   26C3  250  JSX    OPJQ 

06BD    S7DC  251  LDW    rX'AO' 

06BE   77CE  252  STW   ASCR  ■ 

0S3F  26CS  253  JSX    OPJQ 

06C0   9  7CB  25  4  LDX    NUAS 

06C1     1  300  255  JMP    *    0 

0SC2    0100  2  56   OPRQ      CLR 

06C3    7626  257  STW    FPJO    CLR    DIGIT  COUNTER 

06C4    S7D0  258  LDW    =1 

06C5   7621  259  STW    FPDQ   SET    WAI  TI  NG-FOR-A-CHANGE 

06C6    03EB  260  DOT   X'E^X'B'    ENABLE    KEYBOARD 

06C7    1657  261  JMP    OPAR    LOOK    FOR    ANOTHER    CHARACTER 

06C3    87DD  262    OPJQ      LDW    =OPPT 

06C9    7  001  263  STW    1 

06CA    87D0  264  LDW    =1 

06CB    7042  265  STW    FLS  T 

06CC    87CE  266  LDW    ASCR 

06CD   03EA  267  DOT   X'E'jX'A'    TURN    ON    PRINTER 

06CE   03EE  268  DOT   X'E'jX'E*    OUTPUT  ACR    TO    PRINTER 

06CF   02E0  269  DIN    X'E'jX'O*      STATUS    CHECK 

06D0    0A17  270  SLL    7' 

06D1     0820  271  SAM 

06D2    16D6  272  JMP    $+4 

06D3    0100  273  CLR  - 

06D4    7042  2  74  STW    FLS T 

06D5    03E0  275  DOT   X'E'jX'O' 

06D6   8042  276  LDW    FLS T  LOOK   AT   FLAG 

06D7    3^03  277  SAZ    SKIP    IF   CLR    -    PRINTING    STOPPED 

0SD8    16CF  278  JMP    $-9    WAIT   SEQUENCE 

06D9    1800  27S  JMP    *    0 

06DA    67CB  280    OPQQ      STX    NUAS 

06DB    0050  281  SGM 

06DC    97C7  282  LDX    NUAQ 

06DD   8800  283  LDW    *    0    CONTENTS    OF   CONTENTS    OF    NUAO 

06DE    004  0  284  SLM 

06DF    16E1  285  JMP    $+2 

06E0    67C3  286    OPQR      STX    NUAS 

0611     77CD  287  STW    OPKS 

06 E2    9  7CD  2  88    OPQS      LDX    OPKS 

06 E3   0100  289  CLR 

06.E4    0A7  4  29  0  SLC    D    4 

06  E5   A7D4  29  1  ADD    ='0* 

06E6    07B9  292  CLB    '9' 

0627    0880  293  SGR 

06  E8    16EA  29  4  JMP    $+2    DIGIT   IS    0-9 

06E9    A7DB  295  ADD    -1   DIGIT   IS   A-F 

06  EA    77CE  29  6  STW   ASCR 

06EB    67CD  297  STX    OPKS    SAVE    DIGITS    TO   BE   PRINTED 

06EC   26C8  298  JSX    OPJQ 

06  ED   8626  299  LDW    FPJQ 

06  BE  A  7  DO  300  ADD    =1 

06 EF    7626  301  STW    FPJQ 


302 
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303  '    OPERATOR    MONITOR    SUBPROGRAM 

06F0    F7DE  304  CM!  -A    FINISHED   PRINTING? 

06F1     OS60  305  3 EQ 

06F2    16E2  306  JMP  OPQS    NO-CONTINUE   DIGIT   ENCODING    \    PRINTOUT 

06F3    8627  307  LDW  FPKQ     ;    FLAG 

06F4    0800  308  SAZ  "LOCATION"    GROUP   JUST   PRINTED7C;    FLAG    GET! 

06F5    179A  309  J  MP  3GCR    Y EG 

05F6    861 E  310  LDW  FPAQ    NO 

06F7    0800  31 1  SAZ 

06F8    16FB  312  J  MP  $  +  3    A    COMMA    HAS   DEEM   SEEN 

06F9    97DF  313  LDX  -OPRQ    COMMA    HAG    NOT   BEEN    SEEN 

06FA    1'6S9  314  J  MP  OPOQ 

06FB    0100  315  CLR 

06FC    7626  316  STW  FPJQ    CLEAR    DIGIT    PRINTOUT    CTR 

06FD  9  7C3  317  LUX  NUAS 

06FE    1300  313  J  MP  *    0 

06FF    861  E  319  QPTQ      LDW  FPAQ 

0700  F7D0  320  '         CMW  =]       MULTIPLE-  PRI  NTOUT?  (SEEN    A    COMMA) 

0701  0360  321  GEO 

07  02    1715  322  J  MP  OPWQ    NO 

0703  3624  323  LDW  FPGO    YES 

0704  A7D0  32  4  ADD  -1 
07  05    7  52  4  32  5  STW  FPGQ 

0706  F7DE  326  CMW  -4    MORE    THAN    4    CHARAC    TO   RIGHT    OF    COMMA? 

0707  dii'60  327  SGR 

0703    170A  323  JMP  1+2    NO-OK 

0709  1725  329  JMP  EPSQ    YES-ERROR 
070A    8624  330  LDW  FPGQ 

07 OB    F7D0  331  CMW  =1    FIRST   HEX   DIGIT? 

070C    0860  332  SEQ 

070D    1712  333  JMP  OPVQ    NO 

070E    0100  334  CLR  YES 

070F   A7CC  335  OPUQ      ADD  CHAQ 
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The  changes  to  the  routine  are: 

1.  Inclusion  of  a  flag  for  power-save  masking  of  green  band, 
which  will  not  reflect  in  logged  data  or  change  the  over- 
head sign; 

2.  Remove  separate  calculation  of  bands  for  Situation  Display 
and  replace  it  with  an  abbreviated,  or  condensed,  output 
of  what  is  output  to  the  field  display,  to  reduce  compu- 
tation time;  and 

3.  Insert  call  to  BANDTRIM  routine  which  will  smooth  the 
display  before  presentation  to  drivers  on  the  ramp. 

Two  external  routines  were  added;  CUSC,  a  routine  to  provide  a 
second  count  over  the  range  0  -  32767,  and  BNDTRM,  the  band  trimming 
routine.  PSF,  the  power-save  flag  is  an  added  external  data  reference. 

Following  the  main  entry,  BGUD,  a  power-save  mask  (PSF)  check  was 
included  with  a  band -mask  (KSIF)  check.  They  must  both  indicate  "unmasked" 
for  the  system  to  proceed. 

Before  label  CHEK,  the  routine  to  calculate  bands  for  the  Situation 
Display  was  removed  and  a  call  to  subroutine  CMPRS  added  following  the 
BNDTRM  (Band  Trim)  to  fill  Situation  Display  Buffer  (SBUF) .  CMPRS  strips 
every  other  list  (one  bit  per  lamp)  from  the  Green  Band  Display  Buffer  (DBUF) 
and  puts  the  result  into  SBUF.   (10  words  are  packed  into  5.) 
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At  the  and  of  CKPD,  check  if  merge  area  has  been  occupied  for 
5  seconds,  sensor  Rll  is  checked.  It  controls  the  power-save  mask. 
When  sensor  Rll  has  gone  unactivated  for  30  seconds,  PSF  (power- save 
mask)  is  set  to  mask  the  bands  but  not  change  the  overhead  sign 
until  Rll  is  activated* 


103 
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1  '      GREEN   BAND    UPDATE  SUBPROGRAM      #1 

2  *      VERSION   PREPARED    10-13-74 

3  *  MODIFIED    12-2-76 

4  *       THIS    ASSY    HAS    VAR    ACC    BANDS    IN    SG 

5  *       THIS    ASSY    HAS    CONSTANT    3    FT/SEC**2    ACC    IN    MM 

6  *       THIS    ASSY    SERVICES    A     608    FT   RAMP 

7  * 

S  *      PROCEDURE    TO   BUILD   OUTPUT    TO   SCU 

9  * 

10  DB1 1  PROC 

11  LDW        DBUF+PCD-1 

12  DOT        0,P(1) 

13  EN DP 

14  * 

15  ORIG      X'800'  ABSO   ASSY    START 

0020  16  INT  EQU         X'20'  EXECUTIVE   I  NIT   RETURN    ADDRES 

0021  17  TIME  EQU         X'21'  2    MSEC    CLOCK 

0025  18  EXEK  EQU        X'25*  EXECUTIVE   RETURN   ADDRESS 

1802  19  MODE  EQU         X ' 1 S02 '      SYSTEM   MODE 

1804  20  I NFG  EQU         X'1804'       INITIALIZATION    FLAG 

1305  21  VMRG  EQU         X*1805'       GREEN    BAND    SPEED 

10C8  22  S3UF  EQU         X '  1 0C8 '      SIT   DISPLAY    OUTPUT   EUFFER 

180C  23  K51F  EQU         X'lSOC       FLAG    TO   MASK   GREEN   BAND 

180D  24  PSF  EQU         X '  1 80D '       POWER    SAVE   MASK 

247A  25  WORKFLG       EQU         X'247A'       TABLE   COPY    IN    PROGRESS    FLAG 

0170  26  SPPS  EQU         X'170'         PRESENCE    DETECTOR    INDICATOR 

0173  27  TPPS  EQU        X ' 1 78*         TIME    P.D.    LAST   ACTIVATED 

0490  28  SPMUL  EQU         X'490'         SOFTWARE    MULTIPLY 

2439  29  BN'DTRM         EQU        X*24B9'  BA  NDTR IM  ROUTINE 

24BA  30  LST  EQU        X'243A*       TIME    SAVE    IN   BNDTRM 

3EES  31  CUSC  EQU         X'3EE8*       CHECK    SECOND    COUNT    ROUTINE 

0300  32  LAMJ  RES         40         OLD   PACER    LIGHT    DISPLAY   BUFFER 

0523    OJOO  33  DO 

0329  34  DBUF  RES         11         DRIVER    DISPLAY    OUTPUT   BUFFER 

0834  10F8  35  JMP         GB UD 

0835  10E0  36  JMP         I  NI T 

0336    3333  37  NBND  D  0         NUMBER    OF  EANDS    IN    TABLE 

0837  38  GBT  RES         120        GREEN   BAND    TABLE 

03AF   0000  39  ALLG  D  0        ALL    GREEN    FLAG 

40  * 

4  1  *    TA3LE    USED    EXTERNALLY 

42  * 

08B0    FFFF  43  TMSK  D  X'FFFF*         MASK    TABLE 

0381  7FFF  44  D  X'7FFF' 

0382  3FFF    45  D      X'3FFF' 
08B3  I FFF    46          D     X'lFFF' 
083  4  OFFF    47  D     X'FFF* 
08B5  07FF    43          D     X'7FF' 
08B6  03FF    49          D      X'3FF' 
03B7  01 FF     50          D      X'lFF' 
08B8  OOFF     51          D      X'FF' 
08B9  007F     52          D      X'7F' 
03BA  003F     53          D      X*3F' 
083B  001F    54  D     X' IF' 
08BC  OOOF     55          D      X'F' 
OSBD  0007     56          D      X*7' 
08BE  0003     57          D      X'3' 
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PAGE 


083 F    0001 

5  3 

0  3CG    00  00 

53 

60 

XT 

XT 


GREEN 

BAND    UPD 

ATE 

;0GRA 

61 

62 
63 

'       GR 

* 

PI  00 

EEN 

BAUD 

UP  DA 

TE   SUBPROGRAM      #2 

03C1 

0064 

D 

100 

03C2 

09  C  4 

64 

PDMAX 

D 

X'9C4*         MAX   P.D.    ON    TIME 

0  SC  3 

0004 

55 

ACCTI 

n 

4 

CONSTANT  ACCELERATION 

08C4 

00  00 

6c 

A  CRT 

D 

0 

TEMPORARY   STORAGE 

3SC5 

0000 

6  7 

AT 

D 

0 

TEMPORARY    STORAGE 

C8C6 

0000 

68 

3KFL 

^ 

0 

BREAKDOWN'    FLAG 

080  7 

3333 

69 

ART1 

D 

0 

08C3 

3333 

7  0 

3  C  NT 

j 

0 

PROCESSED  EAND    COUNTER 

03C3 

0000 

71 

COMF 

D 

0 

COMPRESS    TABLE    FLAG 

03CA 

0000 

72 

DBFSB 

FLG 

D 

0 

DBUF-SBUF   FLAG 

D8CB 

0000 

73 

A  R 12 

D 

03CC 

0000 

74 

DX 

r> 

0 

3SC3 

0000 

75 

FRAC 

D 

0 

TEMPORARY    STORAGE 

08CE 

0000 

76 

I  NTG 

D 

0 

TEMPORARY   STORAGE 

D8C!7 

0000 

7  7 

I  XR  T 

0 

TEMPORARY    STORAGE 

03D0 

0000 

7  3 

MAXF 

D 

0 

03D1 

00  00 

73 

NWRDF 

ILL 

D 

0 

03D2 

00  00 

S3 

OLDV 

D 

0 

03D3 

0033 

31 

SAVE 

D 

0 

TEMPORARY   STORAGE 

D3D4 

3333 

62 

ART3 

D 

0 

0SD5 

0  j00 

DO 

TEn 

D 

0 

TEMPORARY   STORAGE 

1  a  n  r 

0000 

84 

T I X 

D 

0 

TABLE   INDEX 

03D7 

0000 

35 

TIXE 

D 

0 

TABLE   INDEX    -    POINTS    T 

OBDo 

3333 

86 

VA  T 

D 

0 

VAT    =    V(0)    +    1/2AT 

0809 

3333 

87 

XL 

D 

0 

LEADING    EDGE    IN    FEET 

08  DA 

3333 

38 

XT 

D 

0 

TRAILING    EDGE    IN    FEET 

0SDB 

3333 

89 

XLB 

D 

0 

LEADING   BIT    NUMBER 

08  DC 

3333 

9  0 

XT3 

r 

0 

TRAILING    BIT    NUMBER 

D8DD 

O  J  J  J 

91 

XLW 

D 

0 

LEADING    WORD    NUMBER 

03DE 

0000 

32 

XTW 

D 

0 

TRAILING    WORD    NUMBER 

PAGE 


(5 

IN 


SEC) 

FEET 


9  3 
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94    '      GBUD   I  NIT   ROUTI  NE        #3 
08DF    OJOO 

0810    60DF  95    I  NIT  SUBR 

08E1    0100  96  CLR 

08E2   0089  97  S  MB         WORKFLG 

08E3  747A  98  STW        WORKFLG        I  Ml T    TABLE    COPY    FLAG 

08E4    0089  99  SMB         LST      TINE   SAVE   IN   BAND    TRIM 

08E5    74BA         100  STW        LST 

08E6    7  036         101  STW         NBND        CLEAR    NUMBER    OF  BANDS    IN    TABLE 

08E7   82CF         102  LDW         =1  SET  ALL   GREEN    FLAG-  NOT    TO    SET 

08E8    70AF        103  STW        ALLG         ENTIRE   RAMP   GREEN 

08E9    0100         104  CLR 

105  DO  1,11         CLEAR    1 1    ?CU    WORTS 

08EA    0301         106  DOT        0,? 

08EB  0302 
08EC  0303 
08ED  0304 
08EE  0305 
OSEV  0306 
38F0  0307 
0SF1  0308 
08F2  0309 
08F3  030A 
08F4    030B 

08F5    030F         107  DOT         O^'V         DUMMY    SCU   BOX    STROBE 

0SF6   90DF         108  EXIT      I  NI  T     RETURN 

08F7    2800 

109 
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PUD 


iAT 


MTRY    POINT      #4 


PAGE 


D3FS 
38F9 
08FA 

Jbr  j 

08FC 
OSFD 
OSFE 
08FF 
0903 
09  01 

09  oe 

09  03 
0904 
39  05 
0906 
09  07 
09  0  3 
09  09 
09  OA 
09  05 
09  OC 
09  OD 
030E 
03  OF 
09  1  0 
091  1 
09  12 
0913 
09  14 
0915 
0916 
0917 
09  1  3 
09  19 
091 A 
09  IB 
09  1C 

091  D 
09  1  E 
09  IF 

092  0 
0921 
0922 
0923 
0924 
092  5 
09  2  S 
0927 


004  0 

33cS 

34  7A 

0800 

1  1  El 

0100 

92D0 

7  333 

04  01 

10FF 

0036 

3034 

0310 

1  1  El 

2_57 

0  04  0 

3  OAF 
0300 
1118 
0086 
300C 
0036 
nO  OD 
0800 
1112 

1  1  El 
9  2  DO 
82  Dl 
7335 

04  01 
1114 
1  1  El 
0100 
7  0C8 
7  OC  9 
803  6 
3800 
1  1  IF 
1  1  El 
0A13 
B2D2 
7  0C7 
0100 
7  39  6 
0020 
8021 
70D^ 
1  12F 


10 

1  1 
12 
13 
14 
15 
10 
17 
i  8 
19 

2  0 
2  1 
2  2 
23 
24 
25 

9  £ 


30 
31 
32 
33 
3  4 
35 
3  6 
37 
38 


G3UD 

3D 


140 
141 
142 
143 
144 
145 
146 
147 
143 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 


SET( 


MAIM 
SLM 
S  MB 
LDW 

SAZ 
J  MP 

CLR 
LDX 
STW 
IXG 
J  MP 
SM3 
LDW 
SAP 
J  MP 
JSX 
SLM 
L  DW 
SAZ 
J  MP 
S  Mb 
LDW 
SMB 
A  ND 
9AZ 
J  MP 
J  MP 
LDX 
LDW 
3  TW 
IXS 
J  MP 
J  MP 
CLR 
S  TW 
STW 
LDW 
SAZ 
J  MP 
J  MP 
SLL 
SUB 
STW 
CLR 
3  TW 
SMB 
LDW 
STW 
J  MP 


ENTRY    POINT      #4 

WORKFLG 

WORKFLG      DON'T   DO   GEUD    WHILE 
TABLE    COPY    IS   AT    IT 
A  SC  U 

--10         CLEAR    DRIVER    DISPLAY    AND    SIT 
*    DB3F+10        DISPLAY    OUTPUT   BUFFERS 
1 


I  NFG 
I  NFG 

ASCU 
CKPD 

ALL  J 

c  vjr 

K51F 

K51F 


INITIALIZING? 

YES 

NO.    CHECK    8   RAM?    P.D.S 

IF=0,     NC    VEH    ON    HWY    NOW. 

YES 

CHECK    K5  1F    TO    SEE    IF 


PSF      ALSO.  POWER    SAVE    MASK, 
PSF 

BANDS    ARE    TO   BE    MASKED 
S+2 

ASCU         IF   :0    SEND    CLEARED    DISPLAY 
=  -10         NO.    SET   ENTIRE    PT:    GREEN 
=  -1 

DB  UF+  1  0 
1 

ASCU         OUTPUT    DBUF    TO    DD 

C  L  EA  R 
BCNT        PROCESSED   BAND  'COUNTER 
COMF        COMPRESS    TABLE    FLAG 

NBNP        ANY   BANDS    IN    TABLE 

%+2 

ASCU         NO. 
5         Y  ES 
=  S 
ART1 

T1X 

TIME 

TIME 

ART3 

PROBAND 
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ISO    '      GREEN   BAND    UPDATE   SUBPROGRAM      #5 

0923    30C8  161    BEGI  LDW  BCNT 

0S29    F036  162  CMW  NBND        PROCESSED  ALL   BANDS? 

J92A    0  37  0  163  SNE 

0923    1  1CD  164  J  MP  FI  NI         YES 

092C    S0D6  165  LDW  T1X        NO.    INCREMENT    TABLE    INDEX 

092D  A2D2  166  ADD  =3 

G92E   70D6  167  S  TW  TIX 

092F    90D6  163    PROBAND      LDX  TIX         TABLE   INDEX 

0930  80CS  169  LDW  BCNT 

0931  A2CF  170  ADD  =1 

0932  70C3  171  S TW  BCNT 
09  33  30D4  172  LDW  ART3 
0934    0040  173  SLM 

09  35    B 33 7  174  SUB  *    GBT 

09  36    091 1  175  SLA  1 

09  37    7  OCB  176  S  TW  ART2 

0933  8333  177    CVORAC         LDW  *    GBT+1         CONSTANT    VELOCITY  BAND? 

0939  0820  178  SAM 

09  3A    1180  179  J  MP  CONV        YES 

093B    E2D3  ISO  AND  rX'7FFF*         NO.    MASK    OUT   ACC    FLAG 

093C   70D2  181  S  TW  OLDV 

09  3D    0A0  8  182  SRL  8 

093E   0085  183  S MB  VMRG        ACC   BAND   REACHED   DESIRED 

093F    F005  184  CMW  VMRG         VELOCITY   AT    MERGE    POINT? 

0940  0830  185  SGR 

09  41     1149  136  J  MP  ACLF         NO 

09  42    0036  187  S  MB  VMRG 

09  43    8005  188  LDW  VMRG 

09  44    7  83  3  189  S TW  *    GBT+1         YES.    SET    VEL    TO    VMRG 

0945    0100  190  CLR  CLEAR    FRACTIONAL    PARTS    OF 

09  46    7  33A  19  1  S TW  *    GBT+3        LEADING   AND    TRAILING    EDGE 

09  4  7    7  83  0  192  S TW  *    GBT+5 

09  43    1180  193  J  MP  CONV 
194 
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195 

'      GREEN 

8  A  N  D 

UPDATE  SUB 

PROGRAM      #6 

09  49 

00G6 

196 

ACLF 

SMB 

MODE 

09  4  A 

5002 

197 

LOW 

MODE 

09  43 

F2D4 

198 

C  MW 

=  3 

094C 

0870 

199 

SME 

094D 

1  163 

200 

J  MP 

ACCIS5 

D94E 

90D5 

201 

LDX 

TIX 

09  W 

0040 

202 

S  L  M 

0950 

8839 

203 

LDW    * 

G3T+2 

09  51 

F2D5 

204 

CMW 

=  492 

09  52 

0840 

205 

SLS 

09  53 

1  153 

20  6 

J  MP 

ACCIS3 

0954 

F2D6 

207 

CMW 

=  420 

0955 

0840 

208 

SLS 

095S 

1  150 

209 

J  MP 

ACCIS4 

0957 

F2D7 

210 

c  m 

=  543 

09  5  S 

3^43 

21  1 

SLS 

0959 

1  15D 

212 

J  MP 

ACCIS5 

09  5A 

82D3 

213 

ACCIS6 

LDW 

=  6 

0953 

7  0C3 

214 

S  TW 

ACCTI  ME 

09  5C 

1  165 

215 

J  MP 

OLDACLF 

095D 

82D9 

215 

A  C  C I S  5 

LDW 

_   C 

09  5  Z 

7  0C5 

217 

STW 

ACCTI  ME 

09  5  F 

1  165 

21  8 

J  MP 

OLDACLF 

09S0 

S2DA 

219 

ACCIS4 

LDW 

=  4 

09  51 

70C3 

220 

STW 

ACCTI  ME 

-to  ^° 

1  155 

221 

J  MP 

OLDACLF 

0963 

82  D  4 

222 

ACCIS3 

LDW 

=  3 

0954 

70C3 

223 

S  TW 

ACCTI  ME 

0965 

7  0C5 

224 

0LDACLF 

S  R' 

AT 

09SS 

80D2 

22  5 

LDW 

OLDV 

0967 

2230 

22  6 

JSX 

N  E  W  V        C  A 

LC'ULATE    NEW    VELOCITY 

0963 

3343 

227 

SLM 

0969 

C2D3 

22  3 

ORI 

=X'8D0D' 

RESTORE   ACC    FLAG 

09  5A 

90DS 

229 

LDX 

TIX 

09  613 

7838 

230 

S  TW    * 

GDT+1 

09  6C 

30C3 

231 

LDW 

ACCTI  ME 

D96D 

0A01 

232 

SRL 

1 

096E 

7  0C5 

233 

S  TV; 

AT 

09  6  F 

30D2 

234 

LDW 

OLDV 

0970 

2230 

235 

JSX 

N  EW  V 

09  71 

70D8 

236 

STW 

VAT 

0972 

E2DC 

237 

AND 

=X'FF' 

0973 

7  0CD 

238 

STW 

FRAC 

0974 

30D8 

239 

LDW 

VAT 

0975 

0A0  8 

240 

SRL 

S 

0976 

0081 

241 

SPMUL 

0977 

2490 

0978 

03C1 

242 

D 

P100 

09  79 

0000 

243 

D 

0 

09  7A 

8179 

244 

LDW 

$-1 

097B 

70CE 

245 

STW 

INTG 

097C 

AOCD 

246 

ADD 

FRAC 

097D 

7  0CC 

247 

STW 

DX         DX    = 

V(0) T   +    1/2AT**2 

097E 

82DD 

248 

LDW 

=  9999 

097F 

1  182 

249 
250 

J  MP 

UPDATE 

111 


GREEN    r  A  ND    UPDATE    SUBPROGRAM      frl  PAGE         3 

2 3  i  G.\ii:_. N    3 A  ND    UP  DA  i  E    BUBPRGGriAM      #7 

OSSO    70CC  252    CONV  STW  DX 

0531    G2DE  25j  LD*  =  39        STORE   MAXIMUM    FRACTION    (.99) 

G5S2    70D0  254    UPDATE         STw  MAXF 

0983    30D6  253  LDW  XIX 

0934    70D7  256  S  TW  TIXE 

0985  2243  257  JSX  XLEXTE         UPDATE   XLE    (XLE=XLE+DX) 

0986  30D6  258  LDW  TIX 

0987  A2DF  259  ADD  -2 
09 SS    70D7  260  STW  TIXE 

0989  2243"  261  JSX  XLEXTE        UPDATE    XTE    (XTE    =    XTE+DX) 
038A    90D6  262  LDX  TIX        TABLE   INDEX 

098B    0043  263  SLM 

098C    3833  264  LDW  +    GBT+4    CHECK    CUT   LEADING    EDGE 

09  3D    F2E0  265  CMW  "608 

093E    0890  266  SLE 

098F    1 1 07  267-  J  MP  CHEK      TRAILING    EDGE    OFF    DISPLAY 

0990  331 0  268  CAP 

0991  0100  269  CLR  TRAILING    EDGE    WAS    NEGATIVE 

0992  70DA  270  STW  XT 

0993  733B  271  £  TW  *    GBT-M 

0994  3335  272  LD.w  *    GBT+2    CHECK    OCT    LEADING    EDGE 
09  9  5    F2E0  2  73  C MW  -608 

099G    0830  274  CLE 

0997    82E0  275  LDW  =  G08      LEADING    EDGE   WAG    OFF    DISPLAY 

0993    031 0  27G  SAP 

09S9    1123  277  J  MP  BEGI       LEADING    EDGE    NEGATIVE 

039A    70D5  278  STW  XL 

0993    7839  2  79  STW  *  -GBT+2' 

09 9 C    0A10  2  80  NOP 

099 D   FODA  281  CMW  XT 

099 E   0830  282  SGR 

093F    1128  233  J  MP  3EGI       LEADING    .LE.    TRAILING    EDGE 

03A0    80D3  284  LDW  XL         NEW    LEADING    EDGE    IN    FEET 

09A1     F2D4  285  C  MW  ~3         GREATER    THAN    3    FEET? 

09A2    0880  28tj  SGR 

09A3    1123  287  J  MP  EEGI         NO.    DO    NOTFEFRESENT    THIS    BAND 
2  88 
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PA' 


9 


D9A  4 
09  A  5 
G9A6 
09  A  7 
03  A  3 
09  AS 
09  A  A 
09AB 
OS  AC 
09AD 
09AE 
D9A17 
09  BO 
0S31 
09B2 
OS  3  3 
09  B  4 
09B5 
0SB6 
09B7 
0938 
09  B  9 
093A 
09  BB 
09BC 
09BD 
09  BE 
09BF 
OS  CO 
09  CI 
09C2 
09C3 
09 C  4 
09  C  5 
09  CS 


0  i  \ju 

7  DC  A 
21  PC 
004  0 

8  ODE 
A1B3 
7131 
SODD 
BODS 
A2CF 
70D1 
92  Fl 
82  Dl 
dOOO 
04  01 
7  829 
0140 
P0D1 
0860 

1  1B0 
SODB 
3230 
0120 
A  005 

9  ODD 
E829 
7829 
80  DC 
B2CF 
0130 
38B0 
SODE 
£829 
7  829 
1  128 


289 
250 
29  1 
292 

293 
294 
29  5 
29  6 

29  7 

9  0  « 
<-  J  u 

299 
300 
301 
302 
303 
304 
305 
306 

30  7 
3  08 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
32  3 
32  4 


KEEN 


FILLDBUF 
STWDBUF 


BAND 

CLR 

3  IW 

JSX 

SLM 

LDW 

ADD 

STW 

LDW 

SUB 

A  D  D 

STW 

LDX 

LDW 

D 

IXS 

STW    > 

C  XA 

C  MW 

SEQ 

J  MP 

LDX 

LDW    > 

I  NV 

ADD 

LDX 

AND   > 

STW    > 

LDW 

S  UB 

CAX 

LDW    > 

LDX 

AND 

STW 

J  MP 


UPDATE   SUBPROGRAM      #8 

YES.  CLEAR  FLAG  TO  INDICATE  DD  DUB 
DDFSBFLG  BUFFER'  (DBUF)  13  BEING  PRB 
FEETOBIT        CONVERT   LEADING    AND    TRAILS 

LAND    FROM    FEET    TO   BITS 
XT*         TRAILING    WORD    NUMBER    (TWN) 
STWDBUF 

FILLDBUF         (FILLDBUF)    -    STW    *    DBUF   +1 
XLW         LEADING    WORD    NUMBER 
XTW         TRAILING    WORD    NUMBER 
-I 

NWhDFILL  NUMBER  OF  WORDS  TO  BE  TURH 
-0  CLEAR  INDEX  TO  REFERENCE  PROPERS 
=  -1         DD    OUTPUT   PUFFER    (DPUF) 

0  FILL    WORD    WITH    FFFF 

1  INCREMENT  INDEX  TO  REFERENCE  NEXB 
DBUF        AND   SKIP    (WILL    ALWAYS    SKIP) 

NWRDF1LL         TURNED    ON    ALL    NECESSARY    WB 

FILLDBUF- 1         NO.    TURN    ON    NEXT   WORD 
XLB         YES.    LEADING    BIT    NUMBER 
TMSK         REFERENCE   APPROPRIATE    MASK 

INVERT  TO  GET  PROPER  BAND  REPRESEI 
TEM 

LEADING    WORD    NUMBER 
FILL   LEADING    WORD    (EDGE)     0^   BS 
REPRESENTATION 
TRAILING    BIT    NUMBER 


XLW 
DB  UF 
DB  UF 
XTB 
=  1 


*  TMSK  REFER NCE   APPROPRIATE    MASK 
XTW  TRAILING    WORD    NUMBER 

*  DBUF  FILL    TRAILING    WORD    (EDGE)     OF   S 

*  DBUF  REPRESENTATION 
BEGI  NO.    DO    NOT   REPRESENT    THIS    BAND 
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326    *       GREEN   BAUD  UPDATE   SUBPROGRAM      #S 

LDW  NE  ND 

CMW  =1 
SHE 

J  MP  REDU        YES 

STW  COMF         NO.    SET   COMPRESS    TABLE    FLAG 

J  MP  BEGI         PROCESS    NEXT   BAND    ENTRY 

LDW  COMF        YES 

CMW  =0        COMPRESS    TABLE    ? 
SGR 

J  MP  ASCU         MO 

LDW  ART1 

ADD  =  8 

STW  ART1 

LDX  =3        YES.    REFERENCE   SECOND   BAND 
SLM 

LDW    *  GET 

STW    *  GST- 8 

IXS  1  INCREMENT    INDEX.    WILL    ALWAYS    SKIP 

D  0        DUMMY    I  NSTRUCTION 
CXA 

CMW  ART1         ALL    8-WORD   BANDS    MOVED    UP? 
SEQ 

J  MP  TRAS         NO 

LDW  NBND        REDUCE    NUMBER    OF 

SUB  =1  BANDS    IN 

STW  NBND         TABLE   BY    1 

EQU  5 
BNDTRM 

JSX  CMPRS      PUT  BANDS    IN    SBUF 

DO  1,11         OUTPUT    11    WORDS    TO   SCU 

D31  1  ? 


09C7 

3036 

327   CKEX 

09C3 

F2CF 

323 

09C? 

0870 

329 

09CA 

1  1  DE 

330 

09C3 

70C9 

33  1 

09  CC 

1  123 

332 

09CD 

3DC9 

333    FI MI 

09  CE 

F2E1 

334 

09  CF 

0350 

335 

09  DO 

1  1  El 

336 

09  Dl 

S0C7 

337 

09  D2 

A2D2 

333 

09  D3 

70C7 

339 

09  D4 

92D2 

3^0 

09  D5 

0040 

341 

09  DS 

3337 

3  42    TRAS 

09  07 

732F 

543 

09  DS 

0401 

344 

09  D3 

OJOO 

345 

09  DA 

014  0 

346 

09  DB 

F0C7 

347 

09  DC 

0360 

34  3 

09  DD 

1  1  DS 

349 

09  DE 

303  5 

35  0    REDU 

09  DF 

9  2  C  F 

351 

09  EO 

7  03  5 

352 

09  El 

353    ASCU 

09  El 

0  039 

35  4 

0<->  E2 

2439 

09E3 

2Z9E 

355 
35S 

09  E4 

3029 

357 

09  E5 

0301 

09  ES 

S02A 

09  E7 

0302 

09  ES 

S02B 

09  E9 

0303 

09  EA 

302  C 

09  EB 

0304 

09  EC 

302D 

09  ED 

0305 

09  EE 

302  E 

09  EF 

0306 

09  FO. 

302F 

09  Fl 

0307 

09  71 

3050 

09  F3 

0303 

09  F4 

3031 

09  F5 

0309 

09  FS 

8032 

09  F7 

030A 

09  FS 

3033 

09  F9 

030B 

09  FA 

12CD 

358 
359 

JMP         GBDEXT        RETURN    TO    EXECUTIVE 
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I    3AMD    UPDATE 
3 SO    '      GREEN 


SUBPROGRAM      #10 

5 AND    UPDATE   SUBPROGRAM 
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10 


09  F3 

3000 

09  rC 

Clr'i 

361 

FZETOtilT 

SUB  a 

09 'r; 

:  2  i  5 

3  62 

LDW 

SXLW 

35  FZ 

722? 

3  63 

STW 

S  TW  1 

03  FK 

7  22A 

364 

S  T'v. 

CTI.IJ 
O    1  '*  <-> 

OA  0  J 

52  1 ', 

365 

LOW 

SXL3 

OA  0 ! 

7  22  7 

0  vO 

STW 

S  TW2 

-Jri  0  _ 

0A03 

7'"  ?.  Z 
50D9 

357 
36  5 

STW 
LDW 

S  TW  4 

XL         LEADING    EDGi.    IS    FEE; 

OA  0^ 

2215 

369 

JSX 

W  OR  DB  I  T 

OADv 

304  3 

370 

5  L/. 

OA  OS 

?  3  D  0 

371 

LDX 

XLW        LEADING    WORD    MUK3ER 

0A07 

3  32? 

372 

LDW    * 

DD5F         DRIVER    DISPLAY    BUFFER 

OAOS 

7  3D  5 

373 

S  TW 

TEtl 

OA  0? 

5215 

37  A 

LDW 

S  X  T  * 

OA     Jrl 

7223 

37  5 

5  T* 

STW1 

^  A     ">    "> 

722A 

376 

S  TW 

ST'.i  3 

OA  3C 

52  1  S 

377 

LDW 

SXTB 

OA  3D 

7_2" 

37-3 

STW 

S  TW2 

OA  0  E 

722  C 

379 

STV- 

STW  H 

3A  OF 

^02-  > 

3  50 

LDW 

XT 

OA  1  0 

22  IS 

351 

JSX 

WORDS  IT 

0A1  1 

SI  F5 

3  52 

EXIT 

FZETOtil  i 

OA  12 

2  500 

OA  1  3 

7  30  'J 

3  23 

SXLU 

STW 

XLW 

OA  !  4 

73D3 

354 

SXLB 

STW 

XLS 

OA  1  5 

70DE 

555 

SXT'W 

S  TW 

XTW 

0A16 

7000 

355 
357 

SXT8 

STW 

XTB 

GRE; 

CM    5  A! 

2D    UPDATE 

SUBPROGRAM      #11                                                 PAGE 

3  55 

GREEN 

BAND 

UPDATE   SUBPROGRAM      #1  1 

0A1  7 

0300 

0A1S 

£217 

359 

W3RD3IT 

SUER 

oa  :  'j 

92E! 

330 

LDX 

=  0         CLEAR    IiN'ULX    FOR    CIRCULAR    SHI 

0A1  A 

0A02 

391 

SRL 

2 

0A13 

0AS4 

392 

PRCDBUF 

SRC    j 

4         DIVIDE   BY    IS 

OA  1  C 

7DC4 

393 

STW 

ACRT         (ACRT)    =    LWN    OR    TWN 

0A1  D 

0140 

394 

CXA 

0A1  E 

OAOC 

395 

SRL 

12 

OA!  F 

70CF 

396 

STW 

IXRT         (I  XRT)    =    LEN    OR    TBN 

0A2  0 

B2CF 

397 

SUB 

=  1 

0A2  1 

0S20 

398 

SAM 

REMAINDER    OF    DIVIDE    BY    16    =    0? 

0AS2 

1229 

399 

J  MP 

NOTZERO         NO 

0A23 

8DC4 

400 

LDW 

ACRT        YES 

0A24 

B2CF 

401 

SUB 

=  1 

0A25 

0000 

4  02 

STW1 

D 

0         STORE   LWN    OR    TWN 

DA26 

32  E2 

^33 

LDW 

=  16 

0A2  7 

0000 

404 

3TW2 

D 

0         STORE   LBN    OR    TBN 

0A2  3 

122D 

405 

J  MP 

RTWRDBIT        RETURN 

0A2  9 

8GC4 

406 

NOTZZRO 

LDW 

ACRT 

DA  2  A 

0000 

407 

STW3 

D 

0         STOR  E   LWN    OR    TWN 

0A2  5 

SOCF 

408 

L  U  W 

I  XR  T 

0A2C 

GOOD 

4  09 

S  TW  A 

a 

0         STORE    LBN    OR    TBN 

DA2D 

?2  1  7 

410 

RTWRDBIT 

EXIT 

WORD?  IT      RETURN 

0A2E 

2800 

12 


41  1 
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r>  t~)  —  r"*- 

o  R  il  ". 


0A2.F 
OA  3  J 
OA  3  i 
0A32 
OA  3  3 
OA  3  4 
0A3  5 
0A36 
JA37 
0A3  3 
3A39 
0A3A 
0A3B 
0A3C 
OA  3  D 
0A3  2 
OA  3  F 
OA  '',0 
OA  41 


43 


OA 

OA 
OA 
OA  45 
OA  46 
OA  47 
OA  43 
OA  49 
OA  4A 


Vi 


41 


OA  4C 

OA  4D 
OA  43 
OA  4F 
OA  50 
OA  51 
OA  ^2 
DA  53 
OA  54 


JOOd 


70CE 
30D2 
E2DC 
A0C5 
70CD 
F2DE 
0380 
12  3F 
SOCE 
•\2*A 

I    Jl   J. 

3  OCT 
D2  03 
A0C2 
322^ 
2300 


00  00 
32  42 
00  40 
50D7 
333A 
AOCC 
7  0CD 
FODO 
0  33  0 
1252 
3239 
A2CF 
7  3  33 
30CD 
DODO 
A2CF 
7  33A 
r>  2  A  2 
2800 


!    3 A  "ID    UPDAT2    SUBPROGRAM      #12 
412    '      GREEN   BAND    UPDATE   SUBPROGRAM      #12 
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413  NEWV 
4  14 
415 
4  1  3 
417 

41  3 
4  1  5 
420 
421 
422 
423 
42^ 

42  5 
42G 
427 

42 8  15 3 
423 

4  3  0  * 


431 
';32 
^33 
434 
43  5 
436 

43  7 
438 
439 
A  A  0 
441 
442 
443 
4  44 
4  4  5 
4  46 
4  47 

44  8 


vy  t  it 


XL  EXT 


SUBR 

A  ND 

STW 

LDW 

AND 

ADD 

STW 

CMW 

SGR 

J  Mr 

LDW 

ADD 

STW 

LDW 

SUB 

a  r\  -. 
H  U  iy 

EX  I  T 


U3  R 
LM 

DX 

DW    ' 

3D 

TW 

MW 

uR 

MP 

LW    ■ 

DD 

TW    > 

DW 

f  ir~ 

ub 
3D 
TW    ■ 
XI  T 


-X'FFOO*         MASK    OUT   FRACTIONAL    PART 

INTG         STORE    I  NTEGRAC    PART 

OLDV        INITIAL    VELOCITY 

:X'FF'         MASK    OUT    INTEGRAL    PART 

AT 

FRAC 

-59 


UPDATED   FRACTION 
UPDATED    FRAC    GREATER    THAN    99? 


L99         NO 

I  NTC        YES.    ADD    1    FOOT/SEC 

=X*100'         TO   I NTEGRAL 

I  NIG         PART 

FRAC        SUBTRACT    100    FROM    TOTAL    FRAC 

=5  3         TO    GET   REMAINDER 


I  NTG 

NEW'/ 


ADD    INTEGRAL    TO    FRAC    PART 


TIXE 

GBT+3 

DX 

FRAC 

MAXF 

L3S 

GBT+2 

=  i 

GBT-f-2 
FRAC 
MA  X  F 
=  1 

GBT+3 
XLEXTE 


FRACTIONAL    PART    OF   XLE    OR    XT! 
I N   BAND    POSITION 
UPDATED    FRACTION 
UPDATED    FRAC. GT. 39    OR    39997 


SUB    100    OR    10000    FROM    UPDATED 
FRACTION    TO    GET   REMAINDER 


RETURN 
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4  49 

'       MERGE 

AREA 

DETECTOR    ROUTINE           *13 

450 

* 

OA55 

3333 

451 

PDCLEAR 

D 

0      FLAG    SET    TO    1    I F   ANY    PD    ON 

0A5S 

0000 

OA57 

6256 

4  52 

CKPD 

SUDFt 

Om  55 

0040 

453 

SLM 

0A53 

0100 

4  54 

CLR 

0A5A 

7255 

455 

STW 

PLC  LEAR 

DA  53 

92  £5 

45S 

LDX 

-  -  « 

-  O 

OA5C 

0030 

457 

HERE 

SMB 

SPPS 

OA5D 

39  73 

453 

LDU    *    SPFS+8        PRESENCE   DETECTOR    ACTIVATE 

OA  51 

0300 

459 

SAZ 

OA  5F 

1253 

460 

J  MP 

PACT         YES 

DA  SO 

0401 

4  6  1 

I  NCR 

IXS 

1         NO.    ALL   DETECTORS    CHECKED? 

DA  SI 

125C 

4  62 

Jf'l? 

HERE      NO.     UP    IXR    AND    CHECK    NEXT    P.D 

OA  S2 

12  76 

465 

J  MP 

RTPD 

DA  6  3 

S2  CF 

4  64 

PACT 

LDW 

=  1 

0  A  64 

7255 

465 

S  TW 

PDCLEAR 

DAS  5 

0030 

4  66 

SMB 

TPPS 

DA  66 

39 -JO 

457 

LDW    *    TPPS+8        COUNTS    SINCE   TURN    ON 

DA67 

0320 

45S 

SAT1 

ALL    NEGATIVE   TPPS    ARE    TOO 

DAGS 

126A 

4  69 

J  MP 

PCT1         LONG 

OA  69 

1274 

470 

J  MP 

SBKFG 

OASA 

3383 

4  71 

PCT1 

S  M3 

SPPS 

OA  si; 

397S 

4  72 

LDW    *    SPPS+3 

OASC 

0A01 

4  73 

SRL 

1 

0A6D 

0300 

474 

SAZ 

ALL    SPPS    GREATER    THAN    1 

OA  6  Z 

12  74 

475 

J  MP 

SBKFG         ALSO    TOO    LONG 

0A5F 

0030 

476 

S  MB 

TPPS 

DA  70 

3930 

477 

LDW    *    TPPS+8 

OA  7  1 

F0C2 

478 

cmw 

PDMAX 

0A72 

0330 

479 

SGR 

0A73 

12S0 

4  30 

J  MP 

I  NCR 

0A7  4 

0100 

481 

S3KFG 

CLR 

MERGE   AREA    OCCUPIED 

0A75 

12  7E 

4  32 

J  MP 

SFG            MASK    3ANDS    OFF 

0A7S 

0036 

4  83 

RTPD 

smb 

K51F 

0A7  7 

300C 

4  34 

LDW 

K51F 

DA  7  3 

0800 

4  85 

SAZ 

0A7S 

127D 

486 

J  MP 

ALLOK 

0A7A 

8255 

4  37 

LDW 

PDCLEAR 

0A73 

3S33 

488 

SAZ 

0A7C 

1230 

4  89 

J  MP 

ECKPD 

0A7D 

32  Dl 

490 

ALLCK 

LDW 

=-1            MERGE   AREA    CLEAR 

0A7E 

491 

SFG 

ECU 

$ 

DA7E 

003S 

492 

SMB 

K51F 

0A7F 

7  DOC 

493 

STW 

K5  1F 

0A3D 

494 

ECKPD 

EQU 

S         MASK    FLAG    SET    FOR    PD 

0A30 

02  F5 

495 

DIN 

15,5         NOW    CHECK    FOR    RAMP   ACTIVITY 

0A81 

0330 

496 

SAO 

Rl  1    SENSOR    USED 

0AS2 

123D 

497 

J  MP 

Rl  I  OFF 

DA  83 

0100 

493 

CLR 

Rl  1    ON 

0A8  4 

7290 

499 

STW 

SCR1 1         RESET   SEC    COUNT 

0A35 

0080 

500 

SMB 

TIME        AND      CLOCK    FOR    ELAPSED    SEC 

0AS5 

3021 

501 

LDW 

Tl  ME 

0A8  7 

723F 

502 

STW 

Rl  1C 

0A8S 

32  Dl 

503 

LDW 

=  -1 

0AS9 

0086 

504 

SMB 

PSF         UNMASK    POWER    SAVE 
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OA  3A 

OASG 
0A3C 

OASD 
G  0A3E 
OA8F 
OASO 
0A91 
0A92 
OA  9  3 
0A3  4 
OA  S  5 
OA  9  6 
OA  3  7 
0A9S 
OA  9  3 
0A9A 
0A9S 
OA  9  C 


7000 

OA  SB 
92  56 

2  300 
OA  3D 
005F 
26E3 
0000 
OOOJ 
■001  E 
1294 
12  33 
0100 
0036 
700D 
3231 
729  0 
32  3F 
32  E6 
72  SF 
12  33 


5  05 

506  CKPDXT 

507 

303  31  I  OFF 
5  09 


5  10 
51  i 
512 

5  15 

514 

515 

516. 

517 

5  1  3 

519 

32  0 

521 

522 

523 

524 


Rl  1C 
SCR1  1 
3ACT 


GTW  P3F 

EXIT  CKPL 

EQU  $ 

cusc 


D 
D 

D 

J  MP 

J  MP 

CLR 

SMB 

STW 

LDW 

ST1/ 

LDW 

SUB 

STW 

J  MP 


0      CLOCK    LAST   SEC    ELAPSED 
0         SEC    COUNT 

30   SEC    LAND   DISPLAY    AFTER    Rl  1     ON 
3+2        OVERFLOW 

CKPDXT'    NO   SEC    COUNT    TIMEOUT 
MASK  BANDS 


PSF 

E  A  C  T 
SCR1  1 
Rl  1C 
=  500 
Rl  1C 
CKPDXT 


VIA    POWER 


KE! 


CUSC 


SAVE    MASK 
OVERFLOWING 


UNTIL   RESET   BY 
Rl  1    *  CTIVATIO*: 
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525 
526 

527 
52" 
529 


COMPRESS    D5UF    TO    MAKE  SBUF 


COMPRESS    D! 
TAKE   OUT 


uf(10  words)   tc 
:very  other  fit 


#14 

;duf(5  wof 


j.-i  >  :■. 

>ri  9  r 

OA  /-,  0 

o;  -,  l 

OAA2 

OAA3 
JAA  4 
CA  A  5 
OA  A  fj 

0AA7 

OAAS 
0AA9 
OAAA 
DA  A  3 
OAAC 
OAAD 
OAAZ 
OAAF 
DA  2  0 
OAB1 
0A32 
CAB  3 
DAB^ 
CAB  5 
CAB  5 
OA37 
0A38 
CA39 
CA  3A 
CA3B 
CA3C 
CA3D 
CA  3  E 
CA3F 
CACC 
CAC1 
CAC2 
0AC3 
CAC4 
CAC5 

CACS 
CAC7 
CACS 
CAC9 
CACA 
CAC3 
CACC 


D  3333 
52  9  D 
0040 
01  00 
72  C9 
92  >7 
OA  A  3 
62  CA 
CA31 
8334 
72  CB 
3353 
OAAS 
92  11 
CA22 
CAC1 
CA21 
OA  01 
0A21 
CAC1 
0A21 
OA  0 1 
0A21 
CA  C 1 
0A21 
CA01 
0A21 
0AC1 
0A21 
32  C9 
D2CF 
72CS 
0200 
12CS 
0A35 
C2CC 
92  CA 
0024 
73CD 
0401 
12A3 
929  D 
2800 
0AC6 
62  CC 
82  CB 
12A8 


530  CMPRS 

551 

5  32 

533 

534 

535  RPT 

536 

537 

535 

539 

5  40 

541  AG  I.N 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

5  52 

553 

554 

555 

556 

557 

558 

559 

560 

551 

5  62 

563 

564 

565 

566 

567 

563 

569 

570 

571    PT2 
572 
573 
574 

575  CMPRSFL 

576  ISV1 

5  77   BRAVO 
57S   LFTHLF 
579 


SUBR 

SLM 

CLR 

S  TW 

LDX 

ECU 

STX 

SLL 

LDW 

STW 

LDW 

ECU 

LDX 

SRL 

SRL 

SRL 

SRL 

SRL 

SRL 

SRL 

SRL 

SRL 

SRL 

SRL 

SRL 

SRL 

SRL 

SRL 

LDW 

ORE 

STW 

SAZ 

J  MP 

SLL 

CRI 

LDX 

S  MB 

STW 

IXS 

J  MP 

EXIT 

EQU 
STX 
LDW 
J  MP 
RES 
RES 
R  ES 
RES 


CLEAR    LEFT    HALF    FLAG 
CMPRSFL 
--5      M UMBER    OF   WORDS    IN   S3UF   BAUD 

ISV1 

1  CONVERT    TO    INDEX   FOR    DBUF 

D3UF+11      SECOND    OF   TWO   DB'JF    JORDS 
BRAVO  SAVE    IT    MOMENTARILY 

D5UF+10      FIRST    OF   TWO,    CRUNCH    IT 


D    2 

1 
D    1 


D    1 

1 

D    1 


D    1 


D    1 


IAVE    0:ILY   ALTERNATE   BITS 
'.IFT  SITS    TO   LEFT   HALF    WORD 


CMPRSFL      CHECK    FLAG    IF    THIS    FIRST 

=  1 

CMPRSFL 


D    8 


PT2 

3 

LFTHLF 

IS  VI 

SBUF 

S3UF+5 

1 

RPT 

CMPRS 


$ 

LFTHLF 

BRAVO 

AGIN 

1 


SKIP    IF   SECOND   D3UF   WORD 
GO   DO   SECOND, SAVE   FIRST 
MOVE   SECOND    INTO   ACC 
PUT   IN    THE   OTHER    HALF 
PUT   IT   IN   SBUF 


COUNT    I F   ANOTHER    TO    DO 
YES    THERE   IS    MORE 
NO   MORE    TO    DO,    BYE-BYE 


TUCK    FIRST   CRUNCHED    AWAY 
GET    THE   SECOND   WORD 
GO   CRUNCH    IT 
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580    '      GREEN   BAND    UPDATE  SUBPROGRAM      #15 

531    * 
OACD   0080         582   GBDEXT        SMB         EXEK 
OACE    1025         583  J  MP         EXEK        RETURN    TO    EXECUTIVI 

534   * 

585  _ND 


OACF 

0001 

OADO 

FFF6 

0AD1 

FFFF 

0AD2 

0008 

0AD3 

7FFF 

0AD4 

0003 

0AD5 

01  EC 

0AD6 

01A4 

0AD7 

015C 

0AD8 

0006 

0AD9 

0005 

OADA 

0004 

OADB 

8000 

OADC 

OOFF 

OADD 

270F 

OADE 

0063 

OADF 

0002 

OAEO 

0260 

0AE1 

0000 

0AE2 

0010 

0AE3 

FFOO 

0AE4 

0100 

0AE5 

FFF8 

0AE6 

01  F4 

0AE7 

FFFB 

NO    ERRORS 
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ACCIS3 

0963 

ACCIS4 

0S60 

ACCIS5 

D95D 

ACCIS6 

095A 

ACCTIME 

03C3 

ACLF 

0949 

A  CRT 

0  8C4 

A  G .  I  N 

0AA8 

ALLG 

0  8A  F 

ALLOK 

0A7D 

ART1 

03C7 

ART2 

08CB 

ART3 

0  3D4 

ASCU 

09  El 

AT 

D8C5 

BACT 

0A9  1 

BCNT 

D8C3 

BEG  I 

0928 

BKFL 

DSC  6 

BNDTRM 

24B9 

BRAVO 

OACB 

CHEK 

09C7 

CKPD 

0A57 

CKPDXT 

0A8B 

CMPRS 

OA  9  E 

CMPRSFL 

0AC9 

COMF 

0  8C9 

CONV 

09  80 

cusc 

3EE8 

CVORAC 

0938 

DBFSBFLG 

08CA 

DEUF 

082  9 

DX 

08CC 

ECKPD 

0A80 

EXEK 

002  5 

FEETOBIT 

09  FC 

FILLDBUF 

09B1 

FINI 

09CD 

FRAC 

0  8CD 

GBDEXT 

OACD 

GBT 

033  7 

GBUD 

0  3F8 

HERE 

OA  5C 

I  NCR 

0A6  0 

1NFG 

180  4 

I  MI  T 

OSEO 

I  NT 

002  0 

I  NTG 

D3CE 

ISV1 

OACA 

IXRT 

08CF 

K51  F 

180C 

L99 

0A3F 

L9S 

0A52 

LAMJ 

0  80  0 

LFTHLF 

OA  CC 

LST 

245  A 

T1AXF 

08D0 

MODE 

1802 

NBND 

0836 

N  FW  V 

0A3  0 

NDTZERO 

DA  2  9 

NWRDFILL 

0  8D1 

OLDACLF 

09  65 

OLDV 

0  3D2 

PlOO 

08C1 

PACT 

DA  63 

PCT1 

0A6A 

PDCLEAR 

0A55 

P  DMA  X 

08C2 

PRCBAMD 

092F 

PRCDBUF 

0A1B 

PSF 

1  30  D 

PT2 

0AC6 

Rl  1C 

OASF 

Rl  10FF 

0A8D 

REDU 

09  DE 

RPT 

OA  A  3 

RTPD 

0A7  6 

RTWRDBIT 

0A2D 

SAVE 

03D3 

SBKFG 

0A7  4 

SBUF 

IOCS 

SCR1  1 

0A9  0 

SETC 

09  13 

SFG 

0A7E 

SPMUL 

0490 

SPPS 

0170 

STW1 

0A2  5 

STW2 

0A27 

STW3 

0A2A 

ST/;  4 

0A2C 

STWBBUF 

09B3 

SXLB 

0A1  A 

SXL'.'J 

0A13 

SXT3 

OA  1  6 

SXTW 

0A15 

TEM 

DSD5 

TIME 

0021 

TIX 

08D6 

TIXE 

03D7 

TMSK 

08B0 

TPPS 

0178 

TRAS 

09  D6 

UPDATE 

0982 

VAT 

08D8 

VMR3 

1805 

W  OR  DB I  T 

0A1  8 

WORKFLG 

247A 

XL 

0  8D9 

XLB 

03D5 

XLEXTE 

0A43 

XLW 

03DD 

XT 

03DA 

XTB 

0  8DC 

XTW 

0  3DE 

PAS? 
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CHECK  LIGHT  IN  BAND  SUBROUTINE 

Routine  LITR  was  ladded  for  use  by  the  band- trim  subroutine.  It 
will  retrieve  a  selected  light  from  a  display  and  put  it  in  the  sign 
list  of  the  accumulator.  Depending  upon  the  function  selected, 
light  status  or  change  light  state,  it  will  return  the  result  in 
the  accumulator. 

A  standard  SUBR  entry  is  used  with  3  calling  parameters: 

1.  Address  of  a  10  -  word  display  , 

2.  Desired  light  in  display  (0-159),  and 

3.  Function  in  sign  list 

-  Flip  light  state 

+  Return  light  state  in  accumulator  sign  list 
-  Light  on 
+  Light  off. 
The  routine  builds  shift  and  unshift  instructions  from  the  light 
number  so  the  display  word  will  be  ordered  correctly  when  returned 
to  the  data  area.  Then  the  index  to  the  word  containing  the  selected 
light  is  computed  by  dividing  the  light  number  by  16  (shift  right  4) 
and  the  word  retrieved,  shifted,  function  list  exclusive  -  or'ed 
with  the  light,  unshifted  and  returned  to  the  display.  The  product 
of  the  exclusive  -  or  operation  is  reloaded  and  control  returned  to 
call. 


Ill 


'  LITR 


^ 


BUILD  SHIFT  INSTR 
TO  PUT  LIGHT  IN 
SIGN  BIT 

; i"  ~ 


LIGHT  NO.  A  x   '15' 
DRI  (SHIFT  LEFT  CIRC  0) 


r 


BUILD  SHIFT  TO  ] 
RETURN  LIGHT  TO  I 
ORIGINAL  POSITION1 


CMP  (FROM  PREVIOUS  BLOCK) 

ACC  A  x  '15' 
ORI  (SHIFT  LEFT  CIRC  0) 


LIGHT  NUMBER/16 
SRL  4 


LOAD  +  GET 
LIGHT  IN  SIGN 
BIT  READY 
TO  APPLY  FUNCTION 


INDEX  *■ 
TABLE  ADDR  +  INDEX 
ACC  +■  (INDEX) 
SHIFT  BUILT  FROM 
ABOVE 


APPLY  FUNCTION 
ACC  0  FUNCTION 


UNSHIFT  LIGHT 
RETURN  TO  MEMORY 


SHIFT  BUILT  ABOVE 
STW  (INDEX) 


(    RETURN  J 
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CHECK  LIGHT  IN  BAM© 


PAGE        1 


1 
2 
3 

•check 

* 

♦     CALI 

LI6HT  IN  BAN1 

.: 

4 

♦ 

LITR 

5 

*<0> 

1 

A (LIGHT  TABLE,    10  WORDS) 

6 

*<1> 

D 

LIGHT   NUffiER,   0-159 

7 

*(2> 

• 

FUNCTION 

8 

* 

-     FLIP  LIGHT  STATE 

9 

* 

+     RETURN  LIGHT  STATE  IN  ACCUMULATOR 

10 

* 

-     LIGHT  ON 

11 

* 

+     LIGHT  OFF 

12 

*<3> 

RETURN 

13 

* 

15E2  0000 

15E3  65E2 

14 

LIT* 

SUBR 

15E4  8801 

15 

LBW  * 

1            LIGHT  NUMBER 

15E5   E5FF 

16 

AND 

FFTN       BIT  POSITION  WITHIN  WORD 

15E6  C5FE 

17 

OKI 

SLCO     DUILD  SHIFT  TO  MOVE  IT  TO  SIGN 

150    75F4 

18 

STW 

SHFTO 

15E8  0110 

19 

CWP 

BUILD  SHIFT  TO  UNSHIFT  WORD 

15D    E5FF 

20 

AND 

FfTN 

15EA   C5FE 

21 

OKI 

SLCO 

15EB  75F7 

22 

STW 

SHFTU 

15EC   8802 

23 

LBW  * 

2            GET  FUNCTION 

15ED  E5FD 

24 

AND 

GN          CLEAN  TO  LEAVE  ONLY  SIGN 

15EE  75FC 

25 

STW 

A          SAVE  IT 

15EF  8801 

26 

LDW  * 

1        WORD  POSITION  IN  TABLE 

15F0   0A04 

27 

SRL 

4 

15F1    A800 

28 

ADD  * 

0         -l-  TABLE  ABDRESS 

15F2   0130 

29 

CAX 

15F3  8800 

30 

LDW  * 

0       6ET  WORB  WITH  LIGHT  BIT 

15F4  0A10 

31 

SHFTO 

NOP 

SHIFT  BIT  TO  SIGN 

I5F5  D5 FC 

32 

ORE 

A        LAY  FUNCTION  ON  IT 

15F6  75FC 

33 

STW 

A        SAVE  IT  FOR  RETURN 

15F7  0A10 

34 

SHFTU 

NOP 

UNSHIFT  IT  BACK 

15F8   7800 

35 

STW  * 

0     A NB  PUT  IT  AWAY 

15F9    85FC 

36 

LDW 

A        GET  LIGHT  BACK 

15FA  95  E2 

37 

XT 

EXIT 

LITR  ,3 

15FB  2803 

15FC 

38  / 

RES 

1 

15FD  8000 

39 

GN 

D 

X#8000* 

15FE  0A5O 

40 

SLCO 

SLC 

0 

15FF  OOOF 

41 

FFTN 

D 

15 

42 

0RI8 

XM600* 

43 

END 

CHECK  LIGHT  IN  BAND 


PAGE 


A 

15FC 

FFTN 

15FF 

GN 

15FD 

LITR 

15E3 

SHFTO 

15F4 

SHFTU 

15F7 

SLCO 

15FE 

XT 

15FA 

PAS? 
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GREEN  BAND  STATUS  SUBPROGRAM 

The  power- save  flag  (PSF)  was  added  to  the  global  data  and  program 
changes  were: 

1.  Ramp  clear  check,  either  R7  sensor  or  R6B  sensor  having  no 
activation  in  10  sec; 

2.  Back-up  of  sensor  R6B  by  R7,  if  R7  has  been  activated  15  seconds 
ago  and  no  R6A  activation  has  been  detected,  an  R6B  pseudo- 
activation  is  created; 

3.  During  SG  to  M4  transition  the  ramp  clear  check  is  used  to 
inhibit  the  transition  until  the  clear  is  given; 

4.  Vestigial  data  and  program  segments  were  removed; 

5.  R4  sensor  was  added  to  R3  check  for  yield  sign:  and 

6.  Congestion  check  using  R5-R1,  4  second  occupancy,  and  M1-M2, 
10  second  occupancy,  for  either  condition  the  maximum  wait- 
in-  red  time  for  the  traffic  signal  is  set  to  20  seconds. 

Local  data  additions  at  the  beginning  are  R7T0G,  the  indicator 
for  change  2;  NAXREDP,  the  20  second  constant  for  change  6;  and 
RCLR,  the  ramp  clear  indicator  for  change  1. 

Added  data  initializations  were  R7TOG,  RCLR,  MCLK,  arid  MCNT 
(clock  and  second  count  for  the  congestion  check  in  the  merge  area) , 
RCLK  and  RCNT  (for  the  ramp) ,  VWCLK  and  WCNT  (for  the  R7  back-up  of  R6B) 
SCLK  nad  SCNT  (for  the  ramp  clear  check) ,  MAS  (merge  area  sensor  check) , 
and  RMPS  (ramp  sensor  check). 

In  the  GBS  main  entry  code,  the  ramp  clear  and  R7  back-up  code 
were  inserted.  Ramp  clear  is  indicated  by  R6B  or  R7  having  been  clear 
SLIM  seconds.  RCLR  is  set  to  zero  for  clear  and  one  for  not  clear. 
The  accompanying  code  using  the  RCLR  flag  is  the  modified 
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section  at  label  SETMM.  If  the  ramp  is  not  clear  (RCLR=1)  the  change 
is  not  allowed  and  WREDFLAG  is  set  to  -1  to  keep  the  control  from 
getting  involved  in  TWRED  code  (preceeding  SETMM) .  For  the  R6B  back-up, 
R6A  is  checked  because  it  being  activated  clears  the  check  (R7T0G  =  zero) . 
When  R7  is  activated  R7T0G  is  set  to  one  and  the  timer  counts  until  VWLIM 
seconds  have  elapsed.  If  it  overflows  R6A  has  not  been  activated  so  R7T0G 
is  set  to  negative  one  and  remains  there  until  the  R6A  activation  clears 
it.  Associated  with  the  flag  control  is  added  code  in  CKDEMAND;  R6B  is 
checked  and  if  there  is  a  vehicle  waiting  it  proceeds  normally.  If  it 
takes  the  "no -vehicle- waiting"  execution,  it  will  now  execute  the  R7T0G 
check  for  a  time-out  and  take  the  same  procedure  for  the  vehicle- found- 
waiting  condition  if  R7T0G  =  -1. 

At  CHKK19  following  the  present  volume  setting  of  the  MAXRED  time, 
a  check  is  made  for  ramp  congestion  (R5  to  Rl  being  occupied  for  RLIM 
seconds)  or  merge  area  congestion  (Ml  or  M2  being  occupied  for  MLIM 
seconds) .  The  storage  for  the  ramp  sensor  status  is  RMPS  and  starts 
execution  (or  is  reset)  with  all  bits  set.  The  ramp  sensor  status  is 
input,  "anded"  with  RMPS  until  RMPS  goes  to  zero  indicating  all  the  ramp 
sensors  have  been  occupied  and  should  the  timer  (RCNT)  overflow  before 
the  flags  all  indicate  zero,  MAXRED  is  set  to  MAXREDQ  value  (congestion). 
Using  the  same  logic  Ml  and  M2  are  handled  in  MERCHR  through  MAS  (merge 
area  sensors)  and  MLIM  (seconds  to  overflow  =  congestion.)  Whenever  the 
sensors  go  clear  indicating  movement,  the  counts  are  reset,  the  RMPS  and 
MAS  storage  set  to  -1  (all  bit  sets)  and  the  checks  start  over. 

In  the  MWC  code  for  the  yield  sign,  starting  at  CK015,  R4  is  input 
and  checked  for  a  green  band  alongside  if  activated  (DBUFT  6  "arided"  with 
TR4DM) .  If  R4  is  activated  and  the  band  not  on  alongside,  the  yield  sign 
is  activated. 
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DURING 
REINIT 


RFTOGGLE  ■<-  0 

TIMERS  *■ 

0  : 

RFTOG 

RCLK 

SCLK 

TCLR 

RCNT 

SCNT 

MCLK 

VWCLK 

MCNT 

VWCNT 

SENSOR  CHECK 

SET  TO  ALL  BITS 

ON 


MAS  *■  -1 
RMPS  <-  -1 


k 


OTHER 


NITIALIZATIO 


W 


NEITHER 
SENSOR  IS 
CLEAR 


EITHER 
SENSOR 
IS  CLEAR 


SET  TIMER  TO 
PRESENT  TIME 


SCLK  <-  TIME 
SCNT  t-  0 


CLEAR  FLAG 
KEEP  TIMER 
OVERFLOWING 

SCLK  +■  TIME  -  500 
SCNT  «-  SLIM 
RCLR  «-  0 


FLAG  RAMP  NOT  CLEAR 
RCLR  *-'  1 

(continue  GBS  J 
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/*ADD  TO  GBSA 
V     ENTRY        J 

i 

INPUT  SENSOR 
DATA  FOR 
R6A 

SENSOR  WORD  2 
DIN  15.5 


CLEAR  R7 
TOGGLE 


RFTOG  <-  0 


CHECK  TIME 
SINCE  R7  ACTIVATION 


WCLK 
VWCNT 
VWLIM 


NPUT  SENSOR 
R7 


SENSOR  WORD  2 


SET  TOGGLE 

KEEP  TIMER 

OVERFLOWING 


RFTOG  <r   -1 

WCLK  +   TIME  -  500 

VWCNT  <-  VWLIM 


SET  TOGGLE.  FOR 
COUNTING 
SET  TIMER 


VWCLK  <-     TIME 
VWCNT  <-     0 
RFTOG  «-  1 


/  CONTINUE  "N 
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KEEP  IT  COMING 
TO  SETMM 


WREDF  LAG  «-  -1 
r  OUTPUT   J 


< 


CTMM 

FORMER  LOGIC 


D 


VEHICLE  NOT 
WAITING  AT 
R6B  SENSOR 


SIMULATE 

R6B  ACTIVATION 

AT  R7  TIMEOUT 


[N  CKDEMAWDl 
CODING 


FORMER  NO 
VEHICLE  COD 


d 
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GREEN  BAND 
ALONGSIDE  R4 

DBUF  +  6 
AND  (LIGHTS) 
fRKSTDF.1 


CKJ32 


3 


ADDED  AFTER 
K190UT  WHERE 
FORMER  LOGIC 
SET  TIME 


f         CHKK19     \ 

f    FOLLOWING    ) 
I  PRESENT  LOGIC  / 

~^ 

INPUT  SENSORS 
RS  THRU  Rl 

SENSOR  WORDS  2  AND  3 


'AND"  IN  FORMER 
STATUS 


AND  RMPSjSTW  RMPS 


•SENSOR  INDICATING. 
ON1L? — ' 


K)     K) 
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CHECK 

MERGE  AREA 
Ml,  M2,  FOR 
"BEEN  ON" 


SET  ALL  BITS 

IN  RAMP  CHECK 

RESET  TIMER 


RCLK  «-  TIME 
RCNT  +   0 
RMPS  <-   -1 


INPUT  SENSORS  7 
Ml  AND  M2    / 


SENSOR  WORD  3 


7 


"AND"  IN  FORMER 
STATUS 


AND  MAS 
STW  MAS 


TIMER 

(MCNT) 

IVERFLOW? 


SET  TIME  UP 
CONGESTION) 
KEEP  BOTH  TIMERS 
OVERFLOWING 


RCNT  «-  0 
MCNT 
RCLK 
MCLK  * 


MAXKED  <- 


TIME  MAXED  j8 
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GREEN   BAND  STATUS   PROGRAM      #1 


PAGE 


1800 
1801 


0021 
0829 
10BF 
10C8 
24  79 
2000 
2001 
2002 
2003 
2004 
0020 
0023 
2400 
0836 
2401 
0BC8 
247C 
248F 
0490 
04  EO 
0048 
3EE8 
10AD 
10F1 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 


•    GREEN   BAND   STATUS    PROGRAM      #1 

VERSION   PREPARED    11-3-74/3-28-77 


THIS   ASSEMBLY    OF   GBS    INCLUDES    THE    TAMPA    SITE 
ETA'S    FOR    THE  SG    MODE  BANDS*    AND   THE   LOGIC 
TO    PROVIDE   THE  BAND   EDGE  LOCATIONS    FOR    THE 
VARIABLE  SPEED   GREEN  BANDS    USED   ON    THE 
TAMPA   RAMP    IN    THE   MOVING    MERGE   MODE. 


INCLUDES    CALLS    TO 
THIS    VERSION  ALSO 


TIME 

DBUF 

DSTA 

SBUF 

ALLG 

JVELVL 

BIXR 

CIXR 

TVL 

NUMV 

JFRM 

EXEC 

NBND 

RLNBND 

GBT 

29  'PNTW 

30  GBSSTRT 
GBSDONE 
SPMUL 
SPDIV 
RLTQUE 
CUSC 


31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 


ORIG 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

J  MP 

J  MP 


X'1800' 

X'21  ' 

X,829t 

XMOBF* 

XM0C8* 

X'2479' 

X'2000* 

X'2001 ' 

Xf2002' 

X'2003' 

X'2004' 

Xf20' 

Xf23' 

Xf2400' 

X'836' 

X*2401 * 

X'BCS* 

X,247C 

X,248Ft 

X*490' 

X'4E0' 

X*48* 

INI 
GBS 


TABLE   COPY  ROUTINE 
HAS    I  NIT  PRINT  LOGIC. 


2  MSEC   CLOCK 

DD    OUTPUT  BUFFER 

SD    OUTPUT   BUFFER 

SD    OUTPUT  BUFFER 

ALL   GREEN   FLAG 

GB    VEL-VOL   ROUTINE 

BEG    POINTER    TO    VEL   TABLE 

CURRENT  INDEX   TO    VEL   TABLE 

3  MINUTE    TOTAL    VELOCITY 

INIT  RETURN 

EXEC   RETURN   ADDRESS 
NUMBER    OF  BANDS    IN    TABLE 
ACTUAL   LOC    OF    NBND   IN   GBUD 
GREEN  BAND   TABLE 
TABLE    OF  HIWY    VEH   LIST   PNTRS 
START   TABLE  COPY 
TABLE   COPY  AT  RETURN 
SOFTWARE   MULTIPLY 
SOFTWARE   DIVIDE 
RAMP  QUEUE   STATUS    WORD 
CHECK   SEC    COUNT 


* 

*  TAMPA   SITE  GEOMETRY 

*  RAMP    DISPLAY   LENGTH   IS    608   FEET 

*  DISPLAY    END   TO    NOSE   IS   32    FEET 

*  NOSE   TO    MP    IS   204    FEET 

*  STOP   LINE   IS    264    FEET  ALONG    DISPLAY 

*  SG   BAND   LAUNCH    POINTS 

*  LEADING    EDGE  AT  276    FEET 

*  TRAILING    EDGE  AT  244    FEET 
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GREEN   BAND  STATUS 


#2 


PAGE 


1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
180A 
I  SOB 
180C 
180D 


180E 

180F 

1810 

1811 

1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

181  A 

181B 

1  81  C 

1  81  D 

181  E 

181  F 

1820 

1821 

1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

182A 

182B 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
FFFF 
FFFF 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
09C4 
01  F4 
OFAO 
0000 
03  E8 
0000 
OFAO 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 


'    GREEN 

MODE 

Q 

I  NFG 

VMRG 

VBAR 

K30F 

K30V 

ACTF 

M1NCLK 

TNMSCK 

K51F 

PSF 

* 

*    UP    TO 

* 

SMSGBD 

SGMM3D 

SSFLAG 

INTTIM 

ART1 

EXPFLG 

GRNOPTFL 

LIGHT 

TIMEGRN 

TIMEAMBR 

TIMERED 

MAXGREEN 

MAXAMBR 

MAXRED 

MINRED 

SGMINRED 

WREDFLAG 

WREDTIME 

MMSGFG 

MMSGAM 

SGMMT 

SGMMFG 

INTREDFL 

VWAITFLG 

VWAIT1ME 

FAON 

FAOF 

FAFG 

BEGP 

ENDP 


BAND  STATUS        #2 

D  0  SMC  1) ,    SGC2),    OR    MMC3) 

D  0  3    MINUTE    VOLUME 

D  0  INITIALIZATION    FLAG 

D  0  DESIRED    VELOCITY  AT    MERGE    POINT 

D  0  3    MINUTE  AVERAGE   HWY    VEL 

D  0  K30  ACTIVE    FLAG 

D  0  VEL    OF    VEH    THAT  ACTIVATED    K30 

D  0  SENSOR   ACTIVE   FLAG 

D  0  ONE        MINUTE    CLOCK 

D  0  TEN    MSEC    CLOCK 

D  -1         MASK    FOR    K51      ACTIVATION 

D  -1  POWER    SAVE   MASK 


HERE.    EXTERNAL    DATA 


D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


SM  SG    VBAR   BOUNDARY 
SG    MM    VBAR   BOUNDARY 
3    MINUTE   FLAG 
INITIALISATION    TIME 
I  NIT    TIME   INTERNAL    TO 


GBS 


X'9C4* 

XMF4' 

X'OFAO 

0 

Xf3E8* 

0 

X 

0 

0 


OPERATOR    OPTION    FLAG 
STATE    OF    TRAFFIC    LIGHT 
TIME   LIGHT   TURNED   GREEN 
TIME   LIGHT   SET  AMBER 
TIME  LIGHT   TURNED  RED 
5   SEC.    GREEN 
1    SECOND  AMBER 


SG    MIN.RED 
'WAIT   IN   RED'    FLAG 
OFAO*         WAIT   IN  RED   TIME 

MM      SG    FIRST   TIME   THROUGH    FLAG 
TIME   LIGHT  SET  AMBER    IN    MM      SG 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


INIT  RED   FLAG    CUSED    IN   SM   AND   SG) 
VEHICLE   WAIT   FLAG 
T    VEH    WAIT   START  AT   DEMAND   LOOP 
TIME    FLASH   AMBER    LIGHT    TURNED    ON 
TIME   FLASH   AMBER    LIGHT    TURNED    OFF 
FLASH   AMBER    LIGHT    ON-OFF    FLAG 
BEGINNING    POINTER 
END   POINTER 
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PAGE 


182C 

182D 

182E 

182F 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

183A 

183B 

183C 

183D 

183E 

183F 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

184A 

184B 

184C 

184D 

184E 

184F 

1850 

1851 

1852 

1853 


0000 

03  E8 

1  D4C 

03  E8 

09C4 

0004 

07D0 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0041 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

00FA 

0000 

0000 

007D 

0000 

004B 

034C 

00C8 

03E8 

0000 

0000 

0000 


95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
1  10 
111 
112 
113 
114 
115 
1  16 
117 
1  18 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 


'    GREEN  B 

K19T 

K19QSG 

K19N0QSG 

K19QSM 

K19N0QSM 

FOUR 

SEC  4 

OLDS 

SIXR 

BIND 

D 

GLTA 

GLT1 

LETA 

LLEN 

FPBC 

LT1 

FTIX 

LDFG 

QSGMM 

LTA 

TTA 

LTAMLHDY 

TTAPTHDY 

LHDYTLLN 

THDYTLLN 

LHDYTLFL 

THDYTLFL 

RGPTOLLN 

RGPTOLFL 

RGAPTOL 

BINKTOL 

LVEHFLAG 

QMMSG 

RMPL 

LHDY 

THDY 

LTHDY 

LVEL 

REDFLAG 


AND   S 

DATA 

D 

D 

D 

D 

DATA 

DATA 

DATA 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 


TA 
0 
X 
X 
X 
X 
4 
X 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
6 
0 
0 
0 
0 
0 
0 
0 
0 
X 
0 
0 
X 
0 
7 
8 
X 
X 
0 
0 
0 


TUS 

,lD4Cf 

•3E8' 

*9C4' 


#3 


2   SEC    MAX    WAIT    IF  QUEUE 

15   SEC    MAX   WAIT    IF    NO   QUEUE 

2   SEC 

5   SEC 


•  7D0*         4  SEC. 


BAND  INDICATOR 


LEADING    ETA    (7/9    1.024) 
LEADING    LENGTH    IN   SEC    (7/9    1.024) 
PROCESSED  BAND   COUNTER 
LEADING    Tl     (7/9    1.024) 
TABLE   INDEX   -    USED    IN    FILTER 
LAUNCH-DELETE    FLAG 
(1300    VEH    PER    HR) 


SEC 
SEC 


•FA'   RGAP  TOLERANCE  (LAUNCH 
RGAP  TOLERANCE  (FILTER) 


.5    SEC) 


'  7D*         MOVING    MODE   TOLERANCE 

FIRST    VEHICLE    FLAG 
5       (1500    VEH/HR   SEL.    BY   CITY    OF    TANK 
44         TAMPA    GB    DISP   START   TO    MP 
•C8'         LEADING    HEADWAY    (.4    SECS) 
?3E8*         TRAILING    HEADWAY    (2    SECS) 

LEADING    VELOCITY    (9/7) 
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PAGE 


1854 

1855 

1856 

1857 

1858 

1859 

185A 

185B 

185C 

185D 

185E 

185F 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 


1869 
186A 
186B 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
06D6 
0000 
003E 
0038 
0000 
0000 
01  F4 


2710 


137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 


'    GREEN 

MGAP 

RGAP 

TMTM 

SVEL 

TETA 

TT1 

TVEL 

TX 

VBVL 

VEH1 

ZERO 

VLNGTH 

MWCS 

MWON 

MWCONTM 

SPSN 

HISP 

MDSP 

VGRAM 

LSH 

P500 

* 

* — 

* 

R7T0G 

MAXREDQ 

RCLR 


BAND 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 


RES 

D 

RES 


STATUS 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
X 
0 

62 
56 
0 
0 
500 


#4 
MEASURED 
REQUIRED 

VELOCITY 
TRAILING 
TRAILING 
TRAILING 


GAP 
GAP 

(9/7) 
ETA    (7/9 
Tl    (7/9    1 
VELOCITY 


1  .024) 

.024) 

(9/7) 


TABLE   INDEX 


FIRST    VEHICLE    FLAG 
ZERO    FOR    DIVIDE 
VEHICLE  LENGTH    IN    MM 
STATUS    OF  SIGN 
TIME   SIGN    ON   +5    SECONDS 
'6D6'         MWC    SIGN    ON    TIME    (3.5    SECS) 
CURRENT   STATUS    OF   SPEED   SIGN 
43MPH 
38MPH 


1        R6B   BACK-UP   CHECK 
10000      20   SEC,    .002    SEC 
1  RAMP    CLEAR    FLAG 


TOGGLE 


COUNTS 
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166  '  GBS  -  SG  BAND  ETA  TABLE   #5 

37  FT/SEC 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

t  48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 


186C 

249F 

167    VMRGT3L 

D 

9375      LTA 

186D 

25C6 

168 

D 

9670      TTA 

186E 

2373 

169 

D 

9075 

186F 

251C 

170 

D 

9500 

1870 

230F 

171 

D 

8975 

1871 

2481 

172 

D 

9345 

1872 

2260 

173 

D 

8800 

1873 

23EB 

174 

D 

9195 

1874 

2  1  E3 

175 

D 

8675 

1875 

23  5A 

176 

D 

9050 

1875 

2166 

177 

D 

8550 

1877 

22  E7 

178 

D 

893  5 

1878 

2102 

179 

D 

8450 

1879 

226F 

180 

D 

8815 

187A 

2035 

181 

D 

8325 

187B 

2201 

182 

D 

8705 

187C 

203A 

183 

D 

8250 

187D 

2193 

184 

D 

8600 

187E 

1FD6 

185 

D 

8150 

187F 

2139 

186 

D 

8505 

1880 

1  F8B 

187 

D 

8075 

1881 

20DF 

188 

D 

8415 

1882 

1F40 

189 

D 

8000 

1833 

2085 

190 

D 

8325 

1884 

1  EF5 

191 

D 

7925 

1835 

203A 

192 

D 

8250 

1886 

1  EC3 

193 

D 

7875 

1887 

1  FEF 

194 

D 

8175 

1888 

1  E91 

195 

D 

7825 

1  889 

1FBD 

196 

D 

8125 

188A 

1  E46 

197 

D 

7750 

188B 

1F8B 

198 

D 

8075 

188C 

1  E2D 

199 

D 

7725 

188D 

1  F4A 

200 

D 

8010 

18SE 

1  DFB 

201 

D 

7675 

188F 

1P22 

202 

D 

7970 

1890 

1  DDD 

203 

D 

7645 

1891 

1  EFA 

204 

D 

7930 

1892 

1  DB5 

205 

D 

7605 

1893 

1ED2 

206 

D 

7890 

189  4 

t  D97 

207 

D 

7575 

189  5 

1  EAF 

208 

D 

7855 

1896 

1  D83 

209 

D 

7555 

1897 

1  E91 

210 

D 

782  5 

1898 

1  D6A 

211 

D 

7530 

1899 

1  E78 

212 

D 

7800 

189A 

1  D5B 

213 

D 

7515 

189B 

1  E69 

214 

D 

7785 

189C 

1  D4C 

215 

D 

7500 

189D 

1  E55 

216 

D 

7765 

189E 

1  D42 

217 

D 

7490 

189F 

1  E46 

218 

D 

7750 

18A0 

1  D3D 

219 

D 

7485 

18A1 

1  E3C 

220 

D 

7740 

18A2 

1  D38 

221 

D 

7480 

18A3 

1  E32 

222 

D 

7730 
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65 

66 
TABLE  FOR  MODE  CONTROL 


18A4 

1  D38 

223 

D 

7480 

18A5 

1  E2D 

224 

D 

7725 

18A6 

1  D38 

225 

D 

74  80 

ISA  7 

1  E28 

226 

D 

7720 

18A8 

OOOO 

227    MTAB 

HLT 

BRANCH 

18A9 

11A6 

228 

J  MP 

SMMODE 

18AA 

11BA 

229 

J  MP 

SGMODE 

18AB 

120E 

230 
231 

J  MP 

MMMODE 

GBS    I  MI  T  ROUTINE   WITH    START-UP    HALT      #6  PAGE         7 

232    'GBS    INIT   ROUTINE   WITH    START-UP    HALT      #6 

18AC  0000  233  D  0 

18AD  60AC  234    INI  STX  S-l       I  NI TIALIZATION   ROUTINE 

18AE  08C0  235  SSO  REINITIALIZATION? 

18AF  10BI  236  JMP  $+2 

18B0  10C5  237  JMP  REINIT        YES 

18B1  0100  238  CLR  NO.    CLEAR 

18B2  700B  239  STW  TNMSCK         TEN    MSEC    CLOCK 

18B3  700A  240  STW  M1NCLK         ONE   MINUTE    CLOCK 

18B4  7003  241  STW  Q        -CURRENT   3    MIN      VOLUME 

18B5  7006  242  STW  VBAR         CURRENT    3    MIN    A  VG    VELOCITY 

18B6  0088  2  43  SMB  BIXR 

18B7  7001  244  STW  BIXR         BEG    INDEX   TO    VEL    TABLE 

18B8  0088  245  SMB  C1XR 

18B9  7002  246  STW  CIXR         CURRENT    INDEX    TO    VEL    TABLE 

18BA  0088  247  SMB  TVL 

18BB  7003  248  STW  TVL 

18BC  0083  249  SMB  NUMV         NUMBER    OF    VEHICLES    IN 

18BD  7004  250  STW  NUMV         VELOCITY    TOTAL 

18BE  7010  251  STW  SSFLAG         3    MINUTi    FLAG    (DO    NOT    USE   Q) 

18BF  8757  252  LDW  =44        SM   TO   SG    AT    30    MPH 

18C0  700E  253  STW  SMSGBD 

18C1  8758  254  LDW  =59        SG    TO   MM  AT   40    MPH 

18C2  700F  255  STW  SGMMBD 

1BC3  0000  256  HLT 

13C4  15A0  257  JMP  EXI M 

258 
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259    '    GBS    SYSTEM  RE-INITIALIZE  ROUTINE      #7 
REINIT        CLR 

STW  SPSN        CLEAR    SPEED   SIGN 

STW  MWON        CLEAR    MERGE   ON   TIMER 

STW  MWCS        MERGE  WITH   CAUTION   SIGN    OFF 

STW  INTREDFL        CLEAR    I  NIT   TO   RED   FLAG 

STW  REDFLAG 

STW  VMRG 

STW  MODE 

STW  VWAITFLG 

STW  R7TOG 

STW  RCLR 

STW  MCLK 

STW  MCNT 

STW  RCLK 

STW  RCNT 

STW  VWCLK 

STW  VWCNT 

STW  SCLK 

STW  SCNT 

LDX  =  -10 

SMB  DBUF        CLEAR   DD 

STW   *    DBUF+10 

IXS  1 

J  MP  $-3 

SMB  RLNBND 

STW  RLNBND 

LDX  =  -5 

SMB  SBUF        CLEAR    SD 

STW    *    SBUF+5 

IXS  1 

JMP  $-3 

LDW  =1 

STW  GRNOPTFL 

LDW  =-1  SET   I  NIT    FLAG    AND   FLASHING 

STW  INFG         AMBER   LIGHT   ON-OFF    INDICATOR 

STW  FAFG 

SMB  TIME        STORE   TIME   BEGAN    I  NIT   AND 

LDW  TIME        TIME   LIGHT   WAS    TURNED   AMBER 

STW  ART1 

STW  FAON 

STW  MAS 

STW  RMPS 

LDX  INI-1 

JSX   *    0        RETURN 


18C5 

OlOO 

260 

18C6 

7063 

261 

I8C7 

7  061 

262 

18C8 

7060 

263 

18C9 

7024 

264 

18CA 

7053 

265 

18CB 

7005 

266 

18CC 

7002 

267 

18CD 

7025 

268 

18CE 

7069 

269 

18CF 

7  06B 

270 

18D0 

7616 

271 

18D1 

7617 

272 

18D2 

7603 

273 

18D3 

7604 

274 

18D4 

712F 

275 

18D5 

7130 

276 

18D6, 

7105 

277 

18D7 

7106 

278 

18D8 

9759 

279 

18D9 

0082 

280 

18DA 

7833 

281 

18DB 

0401 

282 

18DC 

10D9 

283 

18DD 

0082 

284 

18DE 

7036 

285 

18DF 

975A 

286 

18E0 

0084 

287 

I8EI 

78CD 

288 

18E2 

0401 

289 

18E3 

10E0 

290 

18E4 

875B 

291 

18E5 

7014 

292 

18E6 

875C 

293 

18E7 

7004 

294 

18E8 

7029 

295 

18E9 

0080 

296 

18EA 

8021 

29  7 

18EB 

7012 

298 

18EC 

7027 

299 

18ED 

7630 

300 

18EE 

762F 

301 

18EF 

9  0AC 

302 

18F0 

2800 

303 
304 
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PAGE 


18FI 
18F2 
18F3 
18F4 
18F5 


18F6 
18F7 
18F8 
18F9 
18FA 
18FB 
I8FC 
18FD 
18FE 
18FF 
1900 
1901 
1902 

1903 
1904 
1905 
1906 
1907 
1908 

1909 
190A 
190B 

190C 
190D 
190E 
190F 
1910 
1911 
1912 
1913 


1914 
1915 
1916 
1917 
1918 
1919 
191 A 

191B 
191  C 
191  D 
191  E 


1SF1 
25A3 
2  5B5 
25E7 
0089 
247C 


02  F5 
0A15 
0820 
1103 
0A15 
0820 
1  103 
0080 
8021 
7105 
0100 
7106 
1  109 
1903 
003F 
26  E8 
0000 
0000 
OOOA 
1  IOC 
1909 
875B 
706B 
1  114 
190C 
0100 
706B 
0080 
8021 
B75D 
7105 
8107 
7106 
1914 

02F5 
E629 
0800 
1  119 
1  1  IB 
0100 
7069 
191  B 
8069 
0810 
1  13C 
0800 


305 
306 
307 
308 
309 
310 

31  1 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 

32  4 
32  5 
32  6 
32  7 
32  8 
329 


'  GBS 

GBS 


RSCLR 


330  SCLK 

331  SCNT 

332  SLIM 
333 

334  SCNTO 

335 

336 

337 

338  SCOVR 

339 

340 

341 

342 

343 

344 

345 

346 

347  SCAST 

348  * 
349 
350 
351 
352 
353 
354 
355 

356  R7CHK 

357 

358 

359 

360 


.  MAI  N 
EQU 
JSX 
JSX 
JSX 
SMB 
JSX 


DIN 
SLL 
SAM 
J  MP 
SLL 
SAM 
J  MP 
SMB 
LDW 
STW 
CLR 
STW 
J  MP 
EQU 
CUSC 

D 

D 

D 

J  MP 

EQU 

LDW 

STW 

J  MP 

EQU 

CLR 

STW 

SMB 

LDW 

SUB 

STW 

LDW 

STW 

EQU 

DIN 
AND 
SAZ 
J  MP 
JMP 
CLR 
STW 
EQU 
LDW 
SAP 
JMP 
SAZ 


ENTRY    POINT      #8 

$ 

SSCK         SET    OVERHEAD    WINKOMATIC    SIGN 

MWC        SEE   IF   MWC    SIGN    SHOULD   BE    ON 

CHKK19 

GBSSTRT 

GBSSTRT        COPY    GBT    ETC    FROM   GBUD 


RAMP    CLEAR   CHECK 
R6B 

ON 

OFF 
R7 

ON 

OFF 


15,5 
5 

RSCLR 
5 

RSCLR 
TIME 
TIME 
SCLK 

SCNT 
SCNTO 


0 

0 

10      SEC 

SCOVR         TIME   OUT,    RAMP    CLEAR 


NO   TIME    OUT, 
FLAG    NOT   CLEAR 


TIME   OUT 
FLAG    CLEAR 
KEEP    TIMER 
OVERFLOWING 


=  1 

RCLR 
SCAS 
$ 

RCLR 
TIME 
TIME 
=  500 
SCLK 
SLIM 
SCNT 


15,5      R7   BACK-UP   OF  R6B 
TSR6A      R6A    ACT? 


$+2 
R7CHK 

R7T0G 

$ 

R7T0G 


NO,    CHECK   R7 

YES,    CLEAR    R7    TOGGLE 


CHECK   R7    TOGGLE 
R7TEXT      -VE,    ALREADY    SET 
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1  9  1  F 

1  12D 

361 

JMP 

R7T0GP 

+  VE,    CHECK    HOW   LONG 

1920 

02F5 

362 

DIN 

15,5 

0,    R-7   CHECK 

1921 

E62E 

363 

AND 

TSR7 

ACTIVE? 

1922 

0800 

364 

SAZ 

1923 

1  125 

365 

JMP 

$+2 

YEs 

1924 

1  13C 

366 

JMP 

R7TEXT 

NO 

1925 

0100 

367 

CLR 

1926 

7130 

368 

STW 

VWCNT 

ZERO   TIME   COUNT 

1927 

0080 

369 

SMB 

TIME 

RESET  CLOCK 

1928 

8021 

370 

LDW 

TIME 

1929 

712F 

371 

STW 

VWCLK 

192A 

875B 

372 

LDW 

=  1 

SET  R7    TOGGLE  +VE 

192B 

7069 

373 

STW 

R7T0G 

192C 

1  13C 

374 

JMP 

R7TEXT 

192D 

375 

R7T0GP 

EQU 

$ 

TOGGLE    .GT.    0 

192D 

008F 

376 

CUSC 

S    192E 

26E8 

377 

* 

R7   COUNTING 

192F 

0000 

378 

VWCLK 

D 

0 

WAITING    FOR 

1930 

0000 

379 

VWCNT 

D 

0 

R6A 

1931 

OOOF 

380 

VWLIM 

D 

1*5      S  EC 

1932 

1  134 

381 

JMP 

$+2 

TIME    OUT,    LET    IT  GO 

1933 

1  13C 

382 

JMP 

R7TEXT 

STILL   COUNTING 

1934 

875C 

383 

LDW 

=  -1 

SET   TOGGLE   FOR   R7    TIME    OUT 

1935 

7069 

384 

STW 

R7T0G 

1936 

8131 

385 

LDW 

VWLIM 

1937 

7130 

386 

STW 

VWCNT 

KEEP    TIMER    OVERFLOWING 

1938 

0080 

387 

SMB 

TIME 

1939 

8021 

388 

LDW 

TIME 

19  3A 

B75D 

389 

SUB 

=  500 

193B 

712F 

390 

STW 

VWCLK 

193C 

391 
392 
393 
394 

R7TEXT 

* 
*- 

* 

EQU 

$ 

193C 

800B 

39  5 

LDW 

TNMSCK 

INCREMENT    10   MSEC   CLOCK 

193D 

A75B 

396 

ADD 

=  1 

193E 

7  00B 

397 

STW 

TNMSCK 

193F 

F75E 

398 

CMW 

=X'17D^ 

1'         ONE  MINUTE    (60000   MSECS) 

1940 

0860 

399 

SEQ 

1941 

1150 

400 

JMP 

BGBS 

NO 

1942 

0100 

401 

CLR 

YES. 

CLEAR    TEN    MSEC    CLOCK 

1943 

700B 

402 

STW 

TNMSCK 

1944 

800A 

4  03 

LDW 

MINCLK 

BUMP    ONE    MINUTE   CLOCK   BY    1 

1945 

A75B 

404 

ADD 

=  1 

1946 

700A 

405 

STW 

MINCLK 

1947 

F75F 

406 

CMW 

=3        3 

MIN.   SINCE  SYSTEM  START   UP? 

1948 

0860 

407 

SEQ 

1949 

1  150 

408 

JMP 

BGBS 

NO 

194A 

875C 

4  09 

LDW 

=-1        YES.      SET  3   MIN.    FLAG 

194B 

7010 

410 

STW 

SSFLAG 

194C 

8760 

411 

LDW 

=  41 

194D 

700E 

412 

STW 

SMSGBD 

194E 

8761 

413 

LDW 

=  56 

194F 

700F 

414 
415 

STW 

SGMMBD 
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1950  0088  417  BGBS      SMB  JVELVL 

1951  2000  418  JSX  JVELVL 

1952  8004  419  LD.W  INFG 

1953  0820  420  SAM 

1954  1172  421  JMP  FI  NT 

1955  8012  422  LDW  ART1 

1956  A762  423  ADD  rXMD4Cf    *15  SEC  RE-INIT  TIME  ***** 

1957  7056  424  S TW  TMTM 

1958  0080  425  SMB  TIME 

1959  8021  426  LDW  TIME 
195A  B056  427  SUB  TMTM 
195B  0810  428  SAP 

195C  1168  429  JMP  I  NONOF 

195D  0088  430  SMB  NUMV   YES 

195E  8004  431  LDW  NUMV    ANY  VEH  CROSSED  Fl  SINCE 

195F  0800  432  SAZ      SYSTEM  START  UP? 

1960  .1162  433  JMP  $+2 

1961  1168  434  JMP  I  NONOF 

1962  0100  435  CLR          YES. CLEAR 

1963  7004  436  STW  INFG    INITIALIZATION  FLAG 

1964  7013  437  STW  EXPFLG    AND  EXPRESS  FLAG 

1965  875B  438  LDW  =1    SET  MODE  TO  SM  TO  GIVE  STARTING 

1966  7002  439  STW  MODE   POINT  FOR  MODE  SWITCHING  LOGIC 

1967  1 172  440  JMP  FINT 

1968  23B4  441  INONOF   JSX  ONOF   DETERMINE  STATE  OF  FLASHING 

442  *                     AMBER  LIGHTS 

1969  8029  443  LDW  FAFG    LIGHTS  ON? 
196A  0810  444  SAP 

196B  116F  445  JMP  I  NTON   YES 

196C  0100  446  CLR           NO 

I960  7015  447  STW  LIGHT    TURN  LIGHT  OFF 

196E  1  192  448  JMP  OUTPUT 

196F  8763  449  INTON    LDW  =Xf20'    TURN  LIGHT  AMBER 

1970  7015  450  STW  LIGHT 

1971  1192  451  JMP  OUTPUT 

452 
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453  '    JMPMODE  AND  OUTPUT  ROUTINES      #10 

1972  875B  454  FINT  LDW  =1         SET    FLAG    SO    THAT   DD  AND   SD 

1973  0089  455  S  MB  ALLG        ARE    NOT   SET  ALL   GREEN 

1974  7479  456  S TW  ALLG 

1975  03E0  457  SS2                OPERATOR    SELECTED   GREEN? 

1976  117D  458  J  MP  GRNOPTST        YES 

1977  8014  459  LDW  GRNOPTFL        NO. 

1978  F75B  460  CMW  =1 

1979  0360  461  S EQ 

197A  117D  462  J  MP  GRNOPTST      'NO 

1973  0100  463  CLR                YES. 

197C  7014  464  S TW  GRNOPTFL 

197D  03E0  465  GRNOPTST   SS2 

197E  1 182  466  JMP  $+4 

197F  9002  467  JMPMODE      LDX  MODE        NO 

1980  0040  468  SLM 

1981  18A8  469  JMP    *    MTAB        JUMP    TO   APPROPRIATE    MODE 

1982  8014  470  LDW  GRNOPTFL        YES. 

1983  0800  471  SAZ 

1984  117F  472  JMP  JMPMODE 

1985  875C  473  LDW  =-1 

1986  7014  474  S TW  GRNOPTFL 

1987  8764  475  LDW  =  X* 10' 

1988  7015  476  STW  LIGHT 

1989  1  1 7F  477  JMP  JMPMODE 
198A  875F  478  MM                  LDW  =3 

198B  7002  479  STW  MODE        SET   MODE    TO    MM 

198C  235E  480  JSX  ALLCLR        CHECK    IF  ANY    VEHICLES    ON    HWY 

198D  0100  431  CLR                YES.    CLEAR    SENSOR    ACTIVE   FLAG 

198E  7009  482  STW  ACTF 

198F  23D7  483  JSX  BINK        CHECK   BINS 

1990  8764  484  LDW  =X'10'         TURN   LIGHT   GREEN 

1991  7015  485  STW  LIGHT 

1992  486  OUTPUT         EQ  U  $        ***PATCH    1    INSERTED*** 

1992  8002  487  LDW  MODE 

1993  F75B  488  CMW  :1 

1994  0870  489  SNE 

1995  1199  490  JMP  PATCH1A 

1996  8060  491  LDW  MWCS           MODE   WAS    NOT    1 

1997  E765  492  AND  =-2 

1998  1 19B  493  JMP  PATCH  IB 

1999  8060  494  PATCH1A      LDW  MWCS           MODE   WAS    1 
199A  C75B  495  ORI  =1 

199B  A015  496  PATCH1B      ADD  LIGHT 

199C  0A10  497  SETSM           NOP 

199D  A063  498  ADD  SPSN        CURRENT   SPEED   SIGN   SETTING 

199E  0082  499  SMB  DB UF 

199F  7033  500  STW  DBUF+10     RAMP   SIGN    CONTROL    FOR    SCU 

19A0  0084  501  SMB  DSTA 

19A1  70C0  502  STW  DSTA+1        RAMP   SIGN   CONTROL    FOR    SD 

19A2  0089  503  SMB  GBSDONE 

19A3  248F  504  JSX  GBSDONE        COPY    NEW   GBT    TO   GBUD 

19A4  0080  505  SMB  EXEC 

19A5  1023  506  JMP  EXEC             RETURN    TO   EXECUTIVE 


507 
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508    '    SMMODE   ROUTINE         #1 1 

19AS    8006         509    SMMODE        LDW  VBAR 

CMW  SMSGBD        VBAR. GT. 28(30)    M.  P.H. 
SGR 

JMP  SM        NO.      MODE   REMAINS    SM 
CLR  YES.    CLEAR   SG      MM   FIRST    TIME 

STW  SGMMFG         THROUGH    FLAG 

LDW  =-1         NO. 

STW  INTREDFL 

LDW  =2        SET   MODE   TO   SG 

STW  MODE 

JMP  OUTPUT 

SM  LDW  =1 

STW  MODE        KEEP    MODE  SM 

LDX  K19QSM 

LDW  MAXRED 

CMW  K19QSG 

SEQ 

LDX  K19N0QSM 

STX  MINRED 

JMP  SMANDSG 


19A7 

FOOE 

510 

19A8 

0880 

511 

19A9 

11B1 

512 

19AA 

0100 

513 

19AB 

7023 

514 

19AC 

875C 

515 

19AD 

7024 

516 

19AE 

8766 

517 

19AF 

7002 

518 

19B0 

1  192 

519 

19B1 

875B 

520 

19B2 

7002 

521 

19B3 

902F 

522 

19B4 

801B 

523 

19B5 

F02D 

524 

19B6 

0860 

525 

19B7 

9030 

526 

19B8 

601  C 

527 

1939 

1243 

528 
529 
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530    '    SGMODE 

ROUTINE      #12 

19BA    8023 

531    SGMODE 

LDW 

SGMMFG        GOING    FROM   SG    TO    MM? 

19BB   0800 

532 

SAZ 

19BC    UFO 

533 

J  MP 

TWRED        YES 

19BD  8006 

534 

LDW 

VBAR         NO 

19BE   F767 

535 

CMW 

=37        VBAR    LESS    THAN   25    M.  P.H? 

19BF  0840 

536 

SLS 

19C0    11C9 

537 

J  MP 

TSGMM        NO 

19C1    0100 

538 

CLR 

YES.    KILL  ANY  ACCELERATING   BANDS 

19C2   0089 

539 

SMB 

NBND 

19C3    7400 

540 

STW 

NBND 

19C4  875C 

541 

LDW 

=  -1 

19C5   7024 

542 

STW 

INTREDFL 

19C6    87 5B 

543 

LDW 

=1        CODE   FOR   SM 

19C7    7002 

544 

STW 

MODE 

19C8    1192 

545 

J  MP 

OUTPUT 

19C9    FOOF 

546    TSGMM 

CMW 

SGMMBD        VBAR    ,GT_.    38    (40)    M.P.H. 

19CA    0880 

547 

SGR 

19CB    1207 

548 

J  MP 

SG         NO.    MOD  :  REMAINS   SG 

19CC    8010 

549 

LDW 

SSFLAG        3    MINUTES    SINCE    INIT? 

19CD  0820 

550 

SAM 

19CE    11  D3 

551 

J  MP 

$+5        NO.    DO    NOT    USE    VOLUME    (Q)    TES 

19CF   8003 

552 

LDW 

Q         YES.   Q    .LT.   QSGMM    VEH   PER    HR? 

19D0    F03F 

553 

CMW 

QSGMM 

19D1    0840 

554 

SLS 

19  IE    1207 

555 

J  MP 

SG         NO.    MODE  REMAINS   SG 

19D3    8013 

556 

LDW 

EXPFLG        YES.    CAME    FROM    INIT? 

19D4    0820 

557 

SAM 

1 9  D5    1  1  FB 

558 

J  MP 

SETMM        YES 

19D6    8015 

559 

LDW 

LIGHT        NO 

19  D7    F768 

560 

CMW 

=X'40'        LIGHT   RED? 

19  D8    0860 

561 

SEQ 

19  E9    1207 

562 

J  MP 

SG         NO.    MODE  REMAINS    SG 

19DA    8018 

563 

LDW 

TIMER  ED        YES 

19DB   A769 

564 

ADD 

=X*3E8' 

19DC    7056 

565 

STW 

TMTM 

19DD   0080 

566 

SMB 

TIME 

19DE  8021 

567 

LDW 

TIME 

19DF  B056 

568 

SUB 

TMTM        RED  2   SECONDS? 

19E0    0810 

569 

SAP 

19E1     1237 

570 

J  MP 

FLT        NO.    JUST    FILTER 

19E2    8023 

571 

LDW 

SGMMFG         FIRST   TIME    THRU   SG    TO      MM? 

19E3  0800 

572 

SAZ 

1  9  E4    1  1  FO 

573 
574 

J  MP 

TWRED        NO 
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575    *    SGMODE  ROUTINE    -   CONTINUED      #13 

YES.    KILL   ANY   ACCELERATING    BANDS 
NBND 
NBND 

=X'10*         YES.    SET   LIGHT   GREEN 
LIGHT 

TIME        STORE   TIME   SET   GREEN 
TIME 
SGMMT 

=  -1         SET   SG      MM   FIRST    TIME    THRU    FLAG 
SGMMFG 
OUTPUT 
WREDFLAG         LAST  RED   A    'WAIT    IN    RED'? 

SETMM        YES 

SGMMT         NO 

=X'1F40' 

TMTM 

TIME 

TIME 

TMTM        WAITING    I  N   SG      MM   FOR    16    SEC? 

OUTPUT         NO. 

RCLR         RAMP    CLEAR? 

$+2         NO,    DON'T   CHANGE   YET 

CTMM      YES,    LET    IT   GO 

=-1         KEEP    IT   COMING    TO   SETMM 

WREDFLAG 

OUTPUT 

$  LET   IT   GO 

YES,    CLEAR    MM    TO   SG    FIRST    TIME 
MMSGFG         THROUGH    FLAG 
=3         SET    MODE   TO    MM 
MODE 
OUTPUT 


19E5 

OlOJ 

576 

CLR 

19E6 

0089 

577 

SMB 

19E7 

7400 

578 

STW 

19E8 

8764 

579 

LDW 

19E9 

7015 

580 

STW 

19EA 

0080 

581 

SMB 

19EB 

8021 

582 

LDW 

19  EC 

7022 

583 

STW 

19  ED 

875C 

5  84 

LDW 

19EE 

7023 

585 

STW 

19EF 

1  192 

5  86 

J  MP 

19F0 

801  E 

587    TWRED 

LDW 

19F1 

0800 

588 

SAZ 

19F2 

1  1FB 

589 

J  MP 

19F3 

8022 

590 

LDW 

19F4 

A76A 

591 

ADD 

19F5 

7056 

592 

STW 

19FS 

0080 

593 

SMB 

19F7 

8021 

594 

LDW 

19F8 

B056 

595 

SUB 

19F9 

0810 

596 

SAP 

19  FA 

1  192 

597 
598   *- 

J  MP 

19FB 

599    SETMM 

EQU 

19FB 

806B 

600 

LDW 

19FC 

0800 

601 

SAZ 

19FD 

1  IFF 

602 

J  MP 

19FE 

1202 

603 

J  MP 

19FF 

875C 

604 

LDW 

1AOO 

701  E 

605 

STW 

1A01 

1  192 

606 

J  MP 

1A02 

607  CTMM 

608  *- 

EQU 

1A02 

0100 

609 

CLR 

1A03 

7020 

610 

STW 

1A04 

875F 

611 

LDW 

1A05 

7002 

612 

STW 

IA06 

I  192 

613 
614 

J  MP 
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615    '    SG   AND 

MMMODE  ROUTINES      #14 

1A07 

8766 

616   SG 

LDW 

=2 

1A08 

7002 

617 

STW 

MODE        KEEP   MODE   SG 

1A09 

80  ID 

618 

LDW 

SGMINRED        SET   MIN.    RED   WAIT    TIME 

1AOA 

701C 

619 

STW 

MINRED        TO   2    SECONDS 

1AOB 

802  E 

620 

LDW 

K19N0QSG 

1AOC 

701  F 

621 

STW 

WREDTIME 

1AOD 

1243 

622 

J  MP 

SMANDSG 

1AOE 

8020 

623    MMMODE 

LDW 

MMSGFG      TEST   FIRST   TIME    THRU    FLAG 

iAOF 

0800 

624 

SAZ 

1A10 

1229 

62  5 

J  MP 

STSG 

1A1  1 

8006 

626 

LDW 

VBAR 

1A12 

F76B 

627 

CMW 

=  51         VBAR    =    35    M.P.H? 

1A13 

0880 

628 

SGR 

1A14 

12  1  C 

629 

J  MP 

MMSG         NO 

IA15 

8010 

630 

LDW 

SSFLAG        3    MIN.    SINCE   SYSTEM   START    UP 

IA16 

0820 

631 

SAM 

1A17 

1  18A 

632 

JMP 

MM        NO.    MODE  REMAINS    MM 

1A18 

8003 

633 

LDW 

Q        YES.    Q     ,LT.    QMMSG    VEH   PER    HR? 

1 A  1  9 

F04D 

634 

CMW 

Q  MMSG 

1 A  1  A 

0880 

635 

SGR 

IA1B 

1  18A 

636 

JMP 

MM        NO.    MODE  REMAINS    MM 

1  A  1  C 

8763 

637    MMSG 

LDW 

-X'20*        YES.    TURN   LIGHT  AMBER 

1  A  1  D 

7015 

638 

STW 

LIGHT 

1A1  E 

0080 

639 

SMB 

TIME        STORE   TIME   SET   AMBER 

1A1  F 

8021 

640 

LDW 

TIME 

1A20 

7021 

64  1 

STW 

MMSGAM 

1A21 

875C 

642 

LDW 

=-1        SET    MM     SG    FIRST   TIME    THRU    FLAG 

1A22 

7020 

643 

STW 

MMSGFG 

1A2  3 

0100 

644 

CLR 

KILL   ANY   CONSTANT   VELOCITY   BANDS 

1A24 

0089 

645 

SMB 

NBND 

1A2  5 

7400 

646 

STW 

NBND 

1A2  6 

1  192 

647 

JMP 

OUTPUT 

1A2  7 

0A10 

648 

NOP 

OLD   CODE  HERE    KILLED  SPEED 

1A2  8 

0A10 

'649 

NOP 

SIGN    FOR    MM   TO   SG    TRANSFER 

1A29 

8021 

650   STSG 

LDW 

MMSGAM 

1A2A 

A76C 

651 

ADD 

=X'6D6f 

1A2B 

7056 

652 

STW 

TMTM 

1A2C 

0080 

653 

SMB 

TIME 

1A2  D 

8021 

654 

LDW 

TIME 

1A2E 

B056 

655 

SUB 

TMTM        AMBER    3.5   SECONDS? 

1A2F 

0810 

656 

SAP 

1A30 

1  192 

657 

JMP 

OUTPUT        NO. 

1A31 

0100 

658 

CLR 

YES 

1A32 

7024 

659 

STW 

INTREDFL        CLEAR    I  NIT   TO   RED   FLAG 

1A33 

7023 

660 

STW 

SGMMFG 

1A34 

8766 

661 

LDW 

-2.                      SET    MODE   TO   SG 

1A35 

7002 

662 

STW 

MODE 

1A3  6 

I  192 

663 
664 

JMP 

OUTPUT 
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665    '    FLT  ROUTINE  AND    FILT   SUBROUTINE      #15 

FLT  JSX  FILT 

JMP  OUTPUT 

D  0 

FILT      STX  $-1   STORE  INDEX 

LDW  ACTF    ANY  HIGHWAY  SENSOR  ACTIVATED? 

SAO 

JMP  RTFILT         NO.    RETURN 

JSX  FILTER         YES.    DROP   ACCELERATING    BANDS 

CLR 

STW  ACTF        YES.    CLEAR    SENSOR   ACTIVE    FLAG 

RTFILT        LDX  FILT-1 

JSX   *    0        RETURN 


1A37 

22  3A 

666 

1A38 

1192 

667 

1A39 

OOOO 

668 

1A3A 

6239 

669 

1A3B 

8009 

670 

1A3C 

0830 

671 

1A3D 

1241 

672 

1A3E 

236F 

673 

1A3F 

0100 

674 

1A40 

7009 

675 

1 A  41 

9239 

676 

1A42 

2  800 

677 
678 
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679    *    SMANDSG   ROUTINE      #16 


1A  43    9002 

680    SMANDSG 

LDX 

MODE        MODE   SG? 

1A44    0850 

681 

SXE 

1A45    1247 

682 

J  MP 

$+2 

1A46   223A 

683 

JSX 

FILT 

1A47    8024 

684 

LDW 

INTREDFL 

NO.    INITIALIZE    TO   RED? 

1A48    0810 

685 

SAP 

1A49    1253 

686 

J  MP 

THRUBFR 

NO 

1A4A    875C 

687 

LDW 

=  -  1        Y  Ei 

! 

1A4B    7024 

688 

STW 

INTREDFL 

1A4C  7013 

689 

STW 

EXPFLG 

1A4D    8768 

690    SETRED 

LDW 

=X'40f 

TURN   LIGHT   RED 

1A4E   7015 

691 

STW 

LIGHT 

1A4F    0080 

692 

SMB 

TIME 

1A50    8021 

693 

LDW 

TIME 

1A51    7018 

694 

STW 

TIMERED 

STORE    TIME   SET   RED 

1A52    1192 

69  5 

J  MP 

OUTPUT 

1A53    8015 

696    THRUBFR 

LDW 

LIGHT        LIGHT   GREEN? 

1A54    F764 

69  7 

CMW 

:XMO' 

1A55    0870 

698 

SNE 

1A56    12E9 

699 

J  MP 

CHECKGRN 

YES 

1A57    F763 

700 

CMW 

=X'20' 

NO.    LIGHT  AMBER? 

1A58   0860 

701 

SEQ 

1A59    1263 

702 

J  MP 

STATER  ED 

NO 

1A5A    8017 

703 

LDW 

TIMEAMBR 

YES 

1A5B    A01A 

704 

ADD 

MAXAMBR 

1A5C    7056 

705 

STW 

TMTM 

1A5D   0080 

706 

SMB 

TIME 

1A5E  8021 

707 

LDW 

TIME 

1A5F  B056 

708 

SUB 

TMTM        AMBER    1    SECOND? 

1A60    0810 

709 

SAP 

1A61    1192 

710 

J  MP 

OUTPUT 

NO. 

1A62    124D 

711 

J  MP 

SETRED 

YES. 

1A63    02F5 

712    STATER  ED 

DIN 

X'F',5 

1A64    E629 

713 

AND 

TSR6A         TAMPA    CHECKOUT    SENSOR    MASK 

1A65    0800 

714 

SAZ 

1A66    1192 

715 

J  MP 

OUTPUT 

YES 

1A67    8053 

716 

LDW 

RED  FLAG 

NO.    MINIMUM  RED    (2    SECONDS) 

1A68    0810 

717 

SAP 

SATISFIED? 

1A69    1274 

718 

J  MP 

CK  DEMAND 

YES 

1A6A    8018 

719 

LDW 

TIMERED 

NO 

1A6B   A01C 

720 

ADD 

MI  NR  ED 

1A6C    7056 

721 

STW 

TMTM 

1A6D   0080 

722 

SMB 

TIME 

1A6E  8021 

723 

LDW 

TIME 

1A6F  B056 

724 

SUB 

TMTM        RED  2    (SG)    OR    5    OR    10    (SM)SEC? 

1A70    0810 

72  5 

SAP 

1A71     1192 

726 

J  MP 

OUTPUT 

NO. 

1A72    875C 

727 

LDW 

-  - 1        Y  ES 

>■•    SET    MINIMUM  RED   FLAG 

1A73    7053 

728 
729 

STW 

REDFLAG 
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730  *    SMANDSG    ROUTINE    -   CONTINUED        #17 

1A74  02F5  731  CKDEMAND   DIN  X'F',5 

1A75  E62A  732  AND  TSR6B 

1A76  0800  733  SAZ                  VEHICLE  WAITING? 

IA77  127E  734  J.MP  VWAITING        YES 

735  *- 

1A78  8069  736  LDW  R7T0G        R7    TIMED   OUT? 

1A79  0810  737  SAP 

1A7A  127E  738  JMP  VWAITING           YES,   RELEASE    VEHICLE 

739  *- 

1A7B  0100  740  CLR                NO.    CLEAR    VEHICLE    WAIT   FLAG 

1A7C  7025  741  STW  VWAITFLG 

1A7D  1 192  742  JMP  OUTPUT 

1A7E  8002  743  VWAITING    LDW  MODE        MODE  SM? 

1A7F  0830  744  SAO 

1A80  129A  745  JMP  MODESG         NO.    MODE    IS    SG 

1A81  02F5  746  SETGREEN    DIN  X'F',5        YES 

1A82  E629  747  AND  TSR6A 

1A83  0800  748  SAZ  PASSAGE  LOOP   ACTIVATED? 

1A84  1192  749  JMP  OUTPUT        YES. 

1A85  8764  750  LDW  rX'10'         NO. 

1A86  7015  751  STW  LIGHT 

1A87  0080  752  SMB  TIME 

1A88  8021  753  LDW  TIME 

1A89  7016  754  STW  TIMEGRN 

1A8A  0100  755  CLR 

1A83  7053  756  STW  REDFLAG 

1A8C  8018  757  LDW  TIMERED 

1A8D  A01F  758  ADD  WREDTIME 

1A8E  7056  759  STW  TMTM 

1A8F  0080  760  SMB  TIME 

1A90  8021  761  LDW  TIME 

1A91  B056  762  SUB  TMTM        RED    16  SEC    ('WAIT    IN   RED')? 

1A92  0810  763  SAP 

1A93  1297  764  JMP  $+4 

1A94  875C  765  LDW  =-1         YES.    SET    'WAIT    IN   RED'    FLAG 

1A95  701 E  766  STW  WREDFLAG 

1A96  1192  767  JMP  OUTPUT 

1A97  0100  768  CLR                NO.    CLEAR    'WAIT    IN   RED'    FLAG 

1A98  701 E  769  STW  WREDFLAG 

1A99  1192  770  JMP  OUTPUT 

771 
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772 

f    MODESG   ROUTINE      #18 

1A9A 

802  5 

773 

MODESG         LDW 

VWAITFLG         1ST   TIME   SAW    VEH   WAITIN 

1A9B 

0810 

774 

SAP 

IA9C 

12A2 

775 

J  MP 

MODESGBF        NO 

1A9D 

875C 

776 

LDW 

=-1         YES.    SET    VEHICLE   WAIT    FLAG 

1A9E 

7025 

777 

STW 

VWAITFLG 

1A9F 

0080 

778 

SMB 

TIME        STORE   TIME    VEH   STARTED   WAIT 

1AA0 

8021 

779 

LDW 

TIME 

1AA1 

7026 

780 

STW 

VWAIT1ME 

1AA2 

8005 

781 

MODESGBF   LDW 

VMRG         GET   SG    MODE   BAND   ETA    VALUES 

1AA3 

B767 

782 

SUB 

=3  7 

1AA4 

0911 

783 

SLA 

1 

1AA5 

0130 

784 

CAX      ■ 

1AA6 

0040 

785 

SLM 

1AA7 

886C 

786 

LDW   * 

VMRGTBL        LI.. 

1AA8 

0080 

787 

SMB 

TIME 

1AA9 

A  021 

788 

ADD 

TIME 

1AAA 

7040 

789 

STW 

LTA 

1AAB 

B04F 

790 

SUB 

LHDY 

1AAC 

B044 

791 

SUB 

LHDYTLLN 

1AAD 

7042 

792 

STW 

LTAMLHDY 

1AAE 

886D 

793 

LDW    * 

VMRGTBL+1         TTA 

1AAF 

0080 

794 

SMB 

TIME 

1AB0 

A021 

795 

ADD 

TIME 

1AB1 

7041 

796 

STW 

TTA 

1AB2 

A050 

797 

ADD 

THDY 

1AB3 

A045 

798 

ADD 

THDYTLLN 

1AB4 

7043 

799 

STW 

TTAPTHDY 

1AB5 

8048 

800 

LDW 

RGPTOLLN 

1AB6 

704A 

801 

STW 

RGAPTOL 

1AB7 

2304 

802 

JSX 

LNDL        CAN   BAND  BE   LAUNCHED? 

1AB8 

0040 

803 

SLM 

1AB9 

803E 

804 

LDW 

LDFG        LAUNCH   BAND? 

1ABA 

0810 

805 

SAP 

' 

1A3B 

12DF 

806 

J  MP 

NOKL        NO 

1ABC 

0089 

807 

SMB 

NBND        YES. 

1ABD 

8400 

808 

LDW 

NBND 

1ABE 

0A13 

809 

SLL 

3 

1ABF 

0130 

810 

CAX 

1AC0 

0089 

811 

SMB 

NBND        BUMP   BAND   COUNT 

1AC1 

8400 

812 

LDW 

NBND 

IAC2 

A75B 

813 

ADD 

=  1 

1AC3 

EOOC 

814 

AND 

K51F        KILL  ALL  BANDS    IF    K51    ON 

IAC4 

0089 

815 

SMB 

NBND 

1AC5 

7400 

816 
817 

STW 

NBND 
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818    '    BAND   LAUNCH    -   SG    MODE      #19 

1AC6    0080  819  SMB         TIME        SET   TIME   BAND   LAUNCHED 

1AC7    8021  820  LDW        TIME 

1AC8   0039  821  SMB        GBT 

1AC9    7C01  822  STW    *   GBT 

1ACA    876D  823  LDW         =X'8000* 

1ACB    0089  824  SMB        GBT 

1ACC    7C02  825  STW    *   GBT+1      ACC    FLAG    'ON'    AT   ZERO    VEL 

1ACD   876E  826  LDW         =276        TAMPA    VALUE    (SGXLE)********* 

1ACE   0089  827  SMB        GBT 

1ACF   7C03  828  STW    *   GB  T+2 

1AD0    876F  829  LDW         =244        TAMPA    VALUE    (SGXTE)********* 

1ADI     0089  830  SMB        GBT 

1AD2    7C05  831  STW    *   GBT+4 

1AD3    0100  832  CLR 

1AD4    0089  833  SMB        GBT 

1AD5    7C04  834  STW    *   GBT+3        CLR    FRAC   LEADING    EDGE 

1AD6   0089  835  SMB        GBT 

1AD7    7C06  836  STW   *   GBT+5        CLR    FRAC    TRAILING    EDGE 

1AD8    8040  837  LDW        LTA 

1AD9    0089  838  SMB        GBT 

1ADA    7C07  839  STW    *   GBT+6        BAND   LEAD   EDGE   ETA 

1ADB    8041  840  LDW         TTA 

1ADC    0089  84 Y  SMB        GBT 

1ADD   7C08  842  STW   *   GBT+7        BAND   TRAIL    EDGE   ETA 

1ADE    1281  843  JMP        SETGREEN        TURN    LIGHT  GREEN 

1ADF   8026  844    NOKL  LDW         VWAITIME 

1AE0   AOIB  845  ADD         MAXRED 

1AE1    B01C  846  SUB         MI  NR  ED 

1AE2    7056  847  STW         TMTM 

1AE3  0080  848  SMB         TIME 

1AE4    8021  849  LDW         TIME 

1AE5   B056  850  SUB         TMTM        RED    8    OR    4    (IF  QUEUE)    SEC? 

1AE6    0810  851  SAP 

1AE7    1192  852  JMP         OUTPUT        NO. 

1AE8    1281  853  JMP        SETGREEN        YES.    TURN    LIGHT   GREEN 

1AE9    02F5  854    CHECKGRN    DIN        X'F',5 

IAEA    E629  855  AND         TSR6A 

1AEB    0800  856  SAZ                CHECKOUT   LOOP   ACTIVATED? 

1AEC    12FE  857  JMP         OPTFLG        YES 

1AED   8014  858  LDW        GRNOPTFL        NO.    OPERATOR    OPTION    GREEN? 

1AEE   0810  859  SAP 

1AEF    1192  860  JMP         OUTPUT        YES. 

1AF0    8016  861  LDW         TIMEGRN         NO 

1AF1    A019  862  ADD         MAXGREEN 

1AF2    7056  863  STW         TMTM 

1AF3    0080  864  SMB        TIME 

1AF4    8021  865  LDW         TIME 

1AF5   B056  866  S  US         TMTM        GREEN    5    SECONDS? 

1AF6   0810  867  SAP 

1AF7    1192  868  JMP         OUTPUT        NO. 


869 
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870    '    SETAMBER    ROUTINE      #20 

YES.    TURN   LIGHT   AMBER 


STORE    TIME   SET   AMBER 

SETFLAG    TO    1    TO    INDICATE 

PASSAGE   LOOP   ACTIVATED 
CLEAR    VEHICLE   WAIT    FLAG 


1AF8 

8763 

871 

SETAMBER 

LDW 

=Xf20' 

1AF9 

7015 

872 

STW 

LIGHT 

1AFA 

0080 

873 

SMB 

TIME 

1AFB 

8021 

874 

LDW 

TIME 

1AFC 

7017 

875 

STW 

TIMEAMBR 

1AFD 

1192 

876 

J  MP 

OUTPUT 

IAFE 

8758 

877 

OPTFLG 

LDW 

=  1 

1AFF 

7014 

878 

STW 

GRNOPTFL 

1B00 

0100 

879 

CLR 

1301 

7025 

880 

STW 

VWAITFLG 

1B02 

12F8 

881 
882 

J  MP 

SETAMBER 
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1B03 
1804 
1305 
1306 
IB07 
1B0S 


0000 
6303 
0040 
0100 
703E 
704C 


IB09  0080 

1B0A  8021 

1B0B  7039 

1B0C  9770 


1B0D 

1B0E 

1B0F 

1B10 

1B1  1 

1B12 

1B13 

1314 

1B15 

1B16 

1B17 

1B18 

1B19 

1B1A 

1B1B 

1B1C 

1B1  D 

1B1  E 

1BIF 

1B20 

1B21 

,IB22 

1B23 

1B24 

1B2  5 

1B2  6 

1B27 

1B28 

1B29 

1B2A 

1B2B 


6034 
0082 
8BD6 
7  02  A 
0082 
8BD7 
702B 
F02A 
0870 
1359 
9  02A 
0082 
9800 
8039 
0082 
B800 
0820 
1353 
0082 
8800 
B042 
0810 
134F 
A042 
0110 
A043 
0820 
134B 
804C 
0820 
134D 


883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

89  4 

89  5 

896 

89  7 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

91  1 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 


*    LNDL   ROUTI  NE      #2  1 
D  0 


LNDL 


STX 
SLM 
CLR 
STW 
STW 


$-1      STORE   INDEX 

CLEAR 
LDFG        LAUNCH-DELETE    FLAG 
LVEHFLAG         AND   LEADING    VEHICLE    FLAG 


*- 

*   PATCH    2    I  NSERTED*** 

SMB  TIME 

LDW  TIME 

STW  LETA 

LDX  =-14 


*- 
BNK 


NVEH 


YES.    CHECK    NEXT   BI 
NO 


PREVIOUS    ETA 


STX        SIXR 

SMB         PNTW 

LDW   *    PNTW+14 

STW        BEGP        BEGINNING    POINTER 

SMB         PNTW 

LDW    *    PNTW+15 

STW         ENDP         END   FAINTER 

CMW        BEGP         THIS    HIGHWAY    LIST   EMPTY? 

SNE 

J  MP        B  EM 

LDX        BEGP 

SMB         PNTW 

LDX   *    0 

LDW         LETA 

SMB         PNTW 

SUB    *    0        CURRENT   ETA 

SAM  CURRENT   ETA    .GT.    PREVIOUS    ETA    7 

JMP         IBP         NO.    TRY    NEXT    VEHICLE 

SMB         PNTW        YES 

LDW   *    0        CURRENT    VEH   ARRIVE   BEFORE   LEADING 

SUB         LTAMLHDY        EDGE   OF  BAND? 

SAP 

JMP 

ADD 

CMP 

ADD 

SAM 

JMP 

LDW 

SAM 

JMP 


SPAR         YES 
LTAMLHDY         NO 

TTAPTHDY 

NOKF        NO.    DELETE   BAND 
LVEHFLAG         YES.    FOUND   LEAD    VEH? 

RTLD         NO.    DO   NOT   DELETE   BAND 
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930    '    LNDL   ROUTINE  -    CONTINUED      #22 

1B2C  902A  931  LDX  B EGP        YES 

IB2D  0082  932  SMB  PNTW        STORE   PARAMETERS    OF    TRAILING 

1B2E  9800  933  LDX   *  0                VEH    FOR    USE   IN   GRAM 

1B2F  0082  934  SMB  PNTW 

1B30  8800  935  LDW    *  0 

1331  7058  936  STW  TETA         TRAILING    ETA 

1B32  0082  937  SMB  PNTW 

1B33  8801  938  LDW    *  1 

1334  7059  939  STW  TT1         TRAILING    Tl 

1B35  0082  940  SMB  PNTW 

1B36  8802  941  LDW    *  2 

1B37  705A  942  STW  TVEL        TRAILING    VELOCITY 

1B3S  0082  943  SMB  PNTW 

1B39  8800  944  LDW    *  0 

1B3A  B039  945  SUB  LETA 

1B3B  B03A  946  SUB  LLEN        MEASURED  GAP=    TRAIL   ETA   -    LEAD 

1B3C  7054  947  STW  MGAP         ETA    -    TRAIL  LENGTH 

1B3D  8039  948  LDW  LETA        STORE   PARAM   OF  LEAD    VEH    FOR 

1B3E  7037  949  STW  GLTA        GAP   REQUIREMENT    TEST. 

1B3F  803C  950  LDW  LT1 

1B40  7033  951  STW  GLT1         LEADING    Tl 

1B41  8057  952  LDW  SVEL 

1B42  7052  953  STW  LVEL        LEADING    VELOCITY 

1B43  24E2  954  JSX  GRAM        CALCULATE   REQUIRED   GAP 

1B44  0040  955  SLM 

1B45  8054  956  LDW  MGAP 

1B46  B04A  957  SUB  RGAPTOL        GAP   ALLOWANCE 

1B47  B055  958  SUB  RGAP        DELETE  BAND    (RGAP      MGAP)? 

1B48  0810  959  SAP 

1B49  134B  960  JMP  NOKF        YES 

1B4A  134D  961  JMP  RTLD        NO 

1B4B  875C  962    NOKF  LDW  =-1         SET   FLAG    NOT   TO   LAUNCH   BAND, 

1B4C  703E  963  STW  LDFG         OR    TO   DELETE   BAND. 

1B4D  9303  964    RTLD  LDX  LNDL-1 

1B4E  2800  965  JSX   *  0        RETURN 

1B4F  2499  966   SPAR  JSX  STPM        STORE    VEHICLE   PARAMETERS 

1B50  0040  967  SLM 

1B51  875C  968  LDW  =-1         SET  LEAD    VEH    FLAG    INDICATING 

1B52  704  C  969  STW  LVEHFLAG         THAT    THERE    IS   A    LEAD    VEH 

1B53  802A  970   IBP  LDW  BEGP        I  NCREMENT  BEGI NNING    POINTER 

1B54  A75B  971  ADD  -1              TO  REFERENCE 

1B55  702A  972  STW  BEGP         NEXT    VEHICLE 

1B56  F02B  973  CMW  ENDP        THIS   LIST   EXHAUSTED? 

1B57  0860  974  S  EQ 

1B58  1317  975  JMP  NVEH         NO.    CHECK    NEXT    VEHICLE 

1B59  9034  976  BEM  LDX  S1XR        YES 

1B5A  0402  977  I XS  2 

1B5B  130D  978  JMP  BNK        NO. 

1B5C  134D  979  JMP  RTLD        YES.   RETURN 

980 
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981     '    ALLCLR   ROUTINE      #23 

1B5D   ^OOd  982  D             0 

1B5E  635D  983   ALLCLR  S  TX         $-1      STORE   INDEX 

1B5F   0040  984  SLM 

1B60   9770  985  LDX         =-14 

1B61    0082  986  ABNK  SMB         PNTW 

IB62    8BD6  987  LDW    *   PNTW+14        BEGINNING    POINTER 

1BS3    0082  988  SMB        PNTW 

1B64    FBD7  989  C  MW    *   PNTW+15        END   PNTER.    ANY    VEH    IN    BIN? 

1B65    0860  990  SEQ 

1B66    136C  991  JMP        RTALCR        YES.    RETURN    TO   GBS 

1B67    0402  992  I XS        2                    NO.    ALL   BINS    CHECKED7 

1B68    1361  993  JMP        ABNK         NO.   BUMP   INDEX  AND   CONTINUE 

1B69    0100  994  CLR                         YES.    CLEAR    ALL 

1B6A    0089  995  SMB        ALLG        GREEN   FLAG    TO 

1B6B    7479  996  STW        ALLG         TURN    ENTIRE   RAMP   GREEN 

1B6C   935D  997   RTALCR  LDX        ALLCLR-1 

1B6D  2800  998  JSX    *    0        RETURN 

999 
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1000 

*  FILTER 

SUBPROGRAM 

#24 

1B6E  OOOd 

1001 

D 

0 

1B6F  0040 

1002 

FILTER 

SLM 

1B70  636E 

1003 

STX 

$-2    ! 

STORE  INDEX  FOR  RETURN 

1B71  0089 

1004 

SMB 

NBND 

1B72  8400 

1005 

LDW 

NBND 

1B73  73AA 

1006 

STW 

NBTEST 

1B74  0800 

1007 

SAZ 

ANY  BANDS  IN  TABLE? 

1B75  1377 

1008 

J  MP 

$+2 

1B7  6  1395 

1009 

J  MP 

RTFILTER    NO.  RETURN 

1B77  0100 

1010 

CLR 

YES 

.  CLEAR 

1B78  7033 

1011 

STW 

FPBC 

PROCESSED  BAND  COUNTER 

1B79  703D 

1012 

STW 

FTIX 

TABLE  INDEX 

1B7A  903D 

1013 

CETA 

LDX 

FTIX 

TABLE  INDEX 

1B7B  0089 

1014 

SMB 

GBT 

1B7C  8C07 

1015 

LDW  * 

GBT+6 

ETA  OF  L  EDGE  OF  THIS  BAND 

1B7D  B04F 

1016 

SUB 

LHDY 

1B7E  B046 

1017 

SUB 

LHDYTLFL 

1B7F  7042 

1018 

STW 

LTAMLHDY 

1B80  0089 

1019 

SMB 

GBT 

1B81  8C08 

1020 

LDW  * 

GBT+7 

ETA  OF  T  EDGE  OF  THIS  BAND 

1B82  A050 

1021 

ADD 

THDY 

1B83  A047 

1022 

ADD 

THDYTLFL 

1384  7043 

1023 

STW 

TTAPTHDY 

1B85  8049 

1024 

LDW 

RGPTOLFL 

1B86  704A 

1025 

STW 

RGAPTOL 

1B87  2304 

1026 

JSX 

LNDL 

CHECK  IF  BAND 

1B88  0040 

1027 

SLM 

SHOULD  BE  DELETED 

1B89  803E 

1028 

LDW 

LDFG 

DELETE  BAND? 

1B8A  0810 

1029 

SAP 

1B8B  1397 

1030 

J  MP 

DELB 

YES 

1B8C  803D 

1031 

LDW 

FTIX 

NO.  BUMP  TBL  INDEX  BY  8 

1B8D  A771 

1032 

ADD 

=  8 

1B8E  703D 

1033 

STW 

FTIX 

1B8F  803B 

1034 

ENDF 

LDW 

FPBC 

INCREMENT 

1B90  A75B 

1035 

ADD 

=  1 

PROCESSED  BAND 

1B91  «703B 

1036 

STW 

FPBC 

COUNTER  BY  1 

1B92  F3AA 

1037 

CMW 

NBTEST 

PROCESSED  ALL  BANDS? 

1B93  0860 

1038 

SEQ 

1B9  4  137A 

1039 

J  MP 

CETA 

NO.  CALCULATE  L  AND  T  ETAS 

1B95  936E 

1040 

RTFILTER 

LDX 

FILTER 

-1 

1B96  2800 

1041 
1042 

JSX  * 

0 
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1B9  7 

1B9  8 

1B99 

1B9A 

1B9B 

1B9C 

1B9D 

1B9E 

1B9F 

1BAO 

1BA1 

IBA2 

1BA3 

1BA4 

1BA5 

1BA6 

1BA7 

1BA8 

1BA9 

1BAA 

1BAB 

1BAC 

1BAD 

1BAE 

1BAF 

1BBO 

1BB1 

1BB2 


0089 

8400 

0A13 

B03D 

7056 

803D 

A771 

0130 

0089 

8C01 

0089 

7BF9 

8056 

B75B 

7056 

0800 

13A9 

13AC 

0401 

0000 

139F 

0089 

8400 

B7  5B 

EOOC 

0089 

7400 

138F 


1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 


DELB    SUBROUTINE    -    USED  BY    FILTER      #25 


DELB 


DELETE 


NBTEST 


SMB 
LDW 
SLL 
SUB 

STW 
LDW 
ADD 
CAX 

SMB 

LDW 

SMB 

STW 

LDW 

SUB 

STW 

SAZ 

J  MP 

J  MP 

IXS 

D 

J  MP 

SMB 

LDW 

SUB 

AND 

SMB 

STW 

J  MP 


NBND 

NBND 

3 

FTIX 

TMTM 

FTIX 

=  8 


SET    INDEX   TO  REF   ENTRY   AFTER 
ENTRY   TO  BE   DELETED 


GBT 

GBT 

GBT 

GBT-8 

TMTM 

rl 

TMTM 

FINISHED   DELETING? 
$+2 

$+4        YES 

1         NO.   BUMP    INDEX-WILL   ALWAYS    SKIP 
0 

DELETE        MOVE    UP    NEXT   WORD 
NBND        DECREMENT    NBND  BY    1 
NBND 
=  1 

K51F        MASK  BANDS    OUT    IF    K51      ACTIVE 
NBND 
NBND 
ENDF 
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1073    '    ONOF   ROUTINE      #26 

D  0 
ONOF             SLM 

STX  $-2        STORE   INDEX   FOR   RETURN 

LDW  FAFG         FLASHING   AMBER    ON-OFF   FLAG 

SAZ  ON? 

J  MP  ON        Y  ES 

LDW  FAOF        NO.    TIME   LIGHT    TURNED   OFF 

ADD  =X,lF4f 

STW  TMTM 

SMB  TIME 

LDW  TIME        LIGHT   OFF   MORE 

SUB  TMTM        THAN   A    SECOND? 

SAP 

JMP  RTNF         NO.    RETURN 

SMB  TIME        YES 

LDW  TIME         TIME   LIGHT 

STW  FAON         TURNED   ON 

LDW  =-1         SET    FLASHING   AMBER    ON-OFF 

STW  FAFG         FLAG    TO    ON 

JMP  RTNF        RETURN 

ON  LDW  FAON         TIME   LIGHT   TURNED    ON 

ADD  rXMF^ 

STW  TMTM 

SMB  TIME 

LDW  TIME        LIGHT   ON 

SUB  TMTM        MORE    THAN   A    SECOND? 

SAP 

JMP  RTNF         NO.    RETURN 

SMB  TIME        YES 

LDW  TIME        TIME   LIGHT 

STW  FAOF        TURNED   OFF 

CLR  SET   FLASHING   AMBER    ON-OFF 

STW  FAFG         FLAG    TO    ON 

RTNF  LDX  ONOF-1 

JSX   *  0        RETURN 


1BB3 

0000 

1074 

1BB4 

0040 

1075 

1BB5 

63B3 

1076 

1BB6 

8029 

1077 

1BB7 

0800 

1078 

1BB8 

13C7 

1079 

1BB9 

8028 

1080 

1BBA 

A75D 

1081 

1BBB 

7056 

1082 

'BBC 

0080 

1083 

BBD 

8021 

1084 

1BBE 

B056 

1085 

13BF 

0810 

1086 

1BC0 

13D4 

1087 

1BC1 

0080 

1088 

1BC2 

8021 

1089 

1BC3 

7027 

1090 

1BC4 

875C 

1091 

1BC5 

7029 

1092 

1BC6 

13D4 

1093 

1BC7 

8027 

1094 

1BC8 

A75D 

1095 

1BC9 

7056 

1096 

1BCA 

0080 

1097 

1BC3 

8021 

1098 

1BCC 

B056 

1099 

1BCD 

0810 

1  100 

1BCE 

13D4 

1  101 

1BCF 

0080 

1  102 

IB  DO 

8021 

1  103 

1BD1 

7028 

1  104 

1BD2 

0100 

1  105 

1BD3 

7029 

1  106 

1BD4 

9  3B3 

1  107 

1BD5 

2800 

1  108 
1  109 
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1110 

1BD6 

OOOO 

1111 

1BD7 

0040 

1112 

1BD8 

63DS 

1113 

1BD9 

0100 

1114 

1BDA 

0089 

1115 

1BDB 

7400 

1116 

1BDC 

705B 

1117 

1BDD 

705D 

1118 

1BDE 

7035 

1119 

1BDF 

9770 

1  120 

1BEO 

6034 

1121 

1BE1 

0082 

1122 

1BE2 

8BD6 

1123 

1BE3 

702A 

1124 

1BE4 

0082 

1125 

1BE5 

8BD7 

1126 

1BE6 

702B 

1  127 

1BE7 

F02A 

1128 

1BE8 

0870 

1  129 

1BE9 

14B1 

1130 

1BEA 

805D 

1131 

1BEB 

0800 

H32 

IB  EC 

1407 

1133 

1BED 

2499 

1134 

1BEE 

0040 

1135 

1BEF 

875C 

1136 

iBFO 

705D 

1137 

1BF1 

902A 

1138 

1BF2 

0082 

1139 

1BF3 

9800 

1140 

1BF4 

0082 

1141 

1BF5 

8800 

1142 

1BF6 

7058 

1143 

1BF7 

875C 

1144 

IBF8 

7035 

1145 

1BF9 

8638 

1  146 

13FA 

0089 

1147 

1BFB 

7403 

1148 

IBFC 

8005 

1149 

1BFD 

7637 

1150 

1BFE 

875C 

1  151 

13FF 

7040 

1152 

1COO 

8039 

1153 

1C01 

7041 

1154 

1C02 

2453 

1155 

1C03 

0040 

1156 

1C04 

0100 

1  157 

1C05 

7035 

1158 

1C06 

141  E 

1159 
1160 

BINK 


BINK 


BNCK 


ROUTINE 
D 

SLM 
STX 
CLR 
SMB 
STW 
STW 
STW 
STW 
LDX 
STX 
SMB 
LOW  * 
STW 
SMB 
LDW  * 
STW 
CMW 
SNE 
J  MP 
LDW 
SAZ 
J  MP 
JSX 
SLM 
LDW 
STW 
LDX 
SMB 
LDX  * 
SMB 
LDW  * 
STW 
LDW 
STW 
LDW 
SMB 
STW 
LDW 
STW 
LDW 
STW 
LDW 
STW 
JSX 
SLM 
CLR 
STW 
J  MP 


#27 
0 

$-2 


STORE   INDEX    FOR    RETURN 


CLEAR    NUMBER    OF   BANDS    IN    TABLE 

CLEAR    TABLE    INDEX 

CLEAR    FIRST   VEHICLE    FLA3 

CLEAR   BAND   INDICATOR 

INIT   IXR    TO  REF   SENSOR    Fl 


NBND 

NBND 

TX 

VEH1 

BIND 

=  -14 

SIXR 

PNTW 

PNTW+14 

BEGP        BEGINNING    POINTER 

PNTW 

PNTW+15 

ENDP        END   POINTER 

BEGP        THIS   HIGHWAY    LTST   EMPTY? 


BEMY 
VEH1 

BNXV 
STPM 

=  -1 

VEH1 

BEGP 

PNTW 

0 

PNTW 

0 

TETA 

=  -1 

BIND 

UF8  44 

GBT 

GBT+2 

VMRG 

UFVNOWX      MAX    VEL    FOR    1ST   BAND  *** 

=  -1         T 

LTA         T 

LETA         T 

TTA         T 

GPOK    SET  UP  FIRST  BAND 


YES.  CHECK  NEXT  BIN 

NO.  FIRST  VEHICLE  ON  HIGHWAY? 

NO 

YES.    USE    VEH   PARAM   AS   POSSIBLE 

LEAD   VEH    PARAMETERS 
SET    FIRST    VEHICLE    INDICATOR 

BEGINNING    POINTER 


VEHICLE   ETA.    STORE   AS 

TRAILING    ETA 
SET  BAND   INDICATOR    TO    INDICATE 
FIRST  BAND  BEING    PROCESSED 
TAMPA    MERGE   POINT**** 


BIND 
I  NBP 


CLEAR   BAND   INDICATOR 

CHK   GAP   BETWEEN    1ST    TWO    VEH 


159 


BINK  ROUTINE    -    CONTINUED      #28                                                        PAGE      30 

1161  *    BINK   ROUTINE  -   CONTINUED      #28 

1C07   902A  1162  BNXV             LDX  BEGP        BEGINNING    POINTER 

1C08   0082  1 163  S MB  PNTW 

1C09   9800  1164  LDX   *  0 

1C0A    8039  1165  LDW  LETA         PREVIOUS    ETA 

1C0B   A04B  1166  ADD  BINKTOL        TOLERANCE 

1C0C    0082  1 167  SMB  PNTW 

1C0D  B800  1168  SUB    *  0        CURRENT   ETA    .25    SECONDS    .GT. 

1C0E   0820  1169  SAM                    PREVIOUS        ETA? 

1C0F    1 41  E  1170  JMP  INBP      NO.    IGNORE    VEHICLE 

1171  * 

0800  1 172  LAMJ              EQU  X'833* 

1  CI  0   902A  1  173  LDX  BEGP 

1  CI  1    0082  1174  SMB  LAMJ 

1C12    9800  1  175  LDX   *  LAMJ 

1  CI  3    8039  1 176  LDW  LETA 

I  CI  4    0082  1177  SMB  LAMJ 

1  CI  5   B800  1178  SUB    *  LAMJ 

1179  * 

I  CI  6    0820  1  180  SAM 

1C17    141  E  1  181  JMP  INBP 

1  CI  8    01  10  1  182  CMP 

1C19   B769  1  183  SUB  =X'3E8' 

1  CIA    0820  1  184  SAM 

1C1B    1425  1185  JMP  GAPT          YES 

1C1  C  2499  I  186  JSX  STPM 

1C1  D  0040  1  187  SLM 

1  CI  E   802A  1188  INBP             LDW  BEGP 

1C1  F  A753  I  189  ADD  =1 

1C20    702A  1190  STW  BEGP 

1C21    F02B  1191  CMW  ENDP         THIS    HIGHWAY    LIST   EXHAUSTED? 

1C22    0870  1192  SNE 

1C23    14B1  1193  JMP  B EMY        YES.    CHECK    NEXT   BIN 

1C24    1407  1194  JMP  BNXV        NO.    CHECK    NEXT    VEHICLE    IN    BIN 

1  195 
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1196    '    BINK  ROUTINE  -   GAP    TEST   SEGMENT      #29 

1C25   A7S9  1197    GAPT  ADD  =X'3E8' 

1  C26   B03A  1198  SUB  LLEN 

1C27    7054  1199  STW  MGAP        MGAP  =    TRAILING    ETA-LEADING    ETA 

1C28  902A  1200  LDX  BEGP 

1C29    0082  1201  SMB  PNTW 

1C2A    9800  1202  LDX  *    0  - 

1C2B   0082  1203  SMB  PNTW 

1C2C   8802  1204  LDW  *    2 

1C2D  705A  1205  STW  TVEL        TRAILING    ETA 

1C2E  8057  1206  LDW  SVEL 

IC2F    7052  1207  STW  LVEL 

1C30    0082  1208  SMB  PNTW 

1C31    8800  1209  LDW  *    0 

1C32    7058  1210  STW  TETA         TRAILING    Tl 

1C33    0082  121  1  SMB  PNTW 

1C34    8801  1212  LDW  *    1 

1C35    7059  1213  STW  TT1         TRAILING    VELOCITY    (9/7    1.000) 

1C36    8039  1214  LDW  LETA 

1C37    7037  1215  STW  GLTA        LEADING    ETA 

1C3S   803C  1216  LDW  LT1 

1C39    7038  1217  STW  GLT1         LEADING    Tl 

IC3A    24E2  1218  JSX  GRAM        CALCULATE  REQUIRED   GAP 

1C3B    0040  1219  SLM 

1C3C    8054  1220  LDW  MGAP 

1C3D  B055  1221  SUB  RGAP        GAP   ADEQUATE    ? 

1C3E   0820  1222  SAM 

1C3F    1443  1223  J  MP  GPK          YES.    SET   UP  BAND   IN  GBT 

1C40   2*99  1224  JSX  STPM        NO. 

1C41    0040  1225  SLM 

1C42    141  E  1226  J  MP  I  NBP        CHECK    NEXT    VEH    IN  BIN 

1C43    803A  1227   GPK  LDW  LLEN        STORE   LEADING    VEH   LENGTH 

1C44    7,0 5 F  1228  STW  VLNGTH 

1C45    8039  1229  LDW  LETA 

1C46   7040  1230  STW  LTA 

1C47   902A  1231  LDX  BEGP 

1C48   0082  1232  SMB  PNTW 

1C49   9800  1233  LDX  *    0 

1C4A    0082  1234  SMB  PNTW 

1C4B   8800  1235  LDW  *    0 

1C4C  7041  1236  STW  TTA 

1C4D  2453  1237  JSX  GPOK        SET    UP  BAND   IN    TABLE 

1C4E   0040  1238  SLM 

1C4F  2499  1239  JSX  STPM 

1C50   0040  1240  SLM 

1C51    141  E  1241  JMP  I  NBP        CHECK    NEXT   VEH   IN  BIN 

1242 
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PAGE      32 


1243 

IC52 

0000 

1244 

1C53 

0040 

1245 

1C54 

6452 

1246 

1C55 

905B 

1247 

1C56 

8035 

1248 

IC57 

F75C 

1249 

1C58 

0870 

1250 

1C59 

1467 

1251 

1C5A 

804F 

1252 

1C5B 

7051 

1253 

1C5C 

24AD 

1254 

1C5D 

0040 

1255 

1C5E 

905B 

1256 

1C5F 

0089 

1257 

1C60 

7C03 

1258 

1C61 

8636 

1259 

1C62 

7637 

1260 

1C63 

8035 

1261 

1C64 

F75B 

12  62 

1C65 

0870 

1263 

1C66 

1473 

1264 

1C67 

8058 

1265 

1C68 

7039 

1266 

1C69 

0100 

1267 

1C6A 

705F 

1268 

1C6B 

8050 

1269 

1C6C 

0110 

12  70 

1C6D 

7051 

1271 

1C6E 

24AD 

1272 

1C6F 

0040 

1273 

1C70 

905B 

1274 

1C71 

0089 

1275 

1C72 

7C05 

1276 

1C73 

2478 

1277 

1C74 

.0040 

1278 

1C75 

9*452 

1279 

1C76 

2  800 

1280 
1281 

GPOK 


GPOK 


FBND 


SVL 


ROUTINE 
D 

SLM 
STX 
LDX 
LDW 
CMW 
SNE 
J  MP 
LDW 
STW 
JSX 
SLM 
LDX 
SMB 
STW  * 
LDW 
STW 
LDW 
CMW 
SNE 
J  MP 
LDW 
STW 
CLR 
STW 
LDW 
CMP 
STW 
JSX 
SLM 
LDX 
SMB 
STW  * 
JSX 
SLM 
LDX 
JSX   * 


#30 


$-2        STORE   INDEX  FOR  RETURN 

TX        TABLE   INDEX 

BIND 

r-1         PROCESSING    FIRST  BAND? 

FBND  YES 

LHDY  NO.    STORE   LEADING   HEADWAY    FOR 

LTHDY  USE   IN   XLTE 

XLTE  CALCU'.ATE   LEADING    EDGE 

TX        TABLE   I.NDEX 

GBT 

GBT+2        STORE  LEADING    EDGE    IN    TABLE 

UFVNOW 

UFVNOWX 

BIND 

=1         PROCESSING    LAST  BAND? 

SVL        YES.    XTE  SET   TO   0 

TETA         NO. 

LETA         TRAILING    ETA 

SET    VEHICLE  LENGTH   TO  ZERO 
VLNGTH 
THDY        STORE   TRAILING    HEADWAY    FOR 

USE   IN   XLTE 
LTHDY 
XLTE 


TX 
GBT 
GBT+4 
TVB 


CALCULATE   TRAILING    EDGE 


STORE   TRAILING    EDGE   IN    TABLE 


GPOK-1 

0        RETURN   TO   CALLING    POINT 
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TVB  ROUTINE 


#31 


PAGE   33 


1C77 
1  C7B 
1C79 
1C7A 
1C7B 
1C7C 
1C7D 
1C7E 
1C7F 
1C80 
1C81 
1C82 
IC83 
1C34 
1C85 
IC86 
1  C87 
1C88 
1C89 
1C8A 
ICSB 
1C8C 
1C8D 
1CSE 
1C8F 
1C9  0 
1C91 
1C92 
IC9  3 
1C9  4 
1C9  5 
1C96 
1C9  7 


oooo 

0040 
6477 
905B 
0080 
8021 
0039 
7C01 
8637 
0089 
7C02 
0089 
8400 
A75B 
EOOC 
0089 
7400 
0100 
0089 
7C04 
0089 
7C06 
8040 
0089 
7C07 
8041 
0089 
7C08 
805B 
A771 
705B 
9477 
2800 


1282 
12  83 
1234 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 


TVB 


TVB 


ROUTINE 
D 

SLM 
STX 
LDX 
SMB 
LDW 
SUB 
STW  * 
LDW 
SMB 
STW  =♦ 
SMB 
LDW 
ADD 
AND 
SMB 
STW 
CLR 
SMB 
STW  * 
SMB 
STW  * 
LDW 
SMB 
STW  * 
LDW 
SMB 
STW  * 
LDW 
ADD 
STW 
LDX 
JSX  * 


#31 


STPM   ROUTINE      #32 


1C98 
1C99 
1C9A 
1C9B 
1C9C 


0000 
0040 
6498 
902A 
0082 
1C9  D  9800 
1C9E   0082 


1C9F 

1CA0 

1CA1 

1CA2 

1CA3 

1CA4 

1CA5 

1CA6 

1CA7 

1  CA8 

1CA9 

1CAA 

1CAB 


8800 
7039 
00  82 
8801 
703C 
0082 
8302 
7057 
0082 
8803 
703A 
9498 
2800 


1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 


STPM 


STPM 


ROUTINE 
D 

SLM 
STX 
LDX 
SMB 
LDX   * 
SMB 
LDW   * 
STW 
SMB 
LDW   * 
STW 
SMB 
LDW   * 
STW 
SMB 
LDW   * 
STW 
LDX 
JSX   * 


$-2 

TX 

TIME 

TIME 

GBT 

GBT 

UFVNOWX 

GBT 

GBT+1 

NBND 

NBND 

=  1 

K51F 

NBND 

NBND 

GBT 

GBT+3 

GBT 

GBT+5 

LTA 

GBT 

GBT+6 

TTA 

GBT 

GBT+7 

TX 

=  8 

TX 

TVB-1 

0 


#32 


$-2 

BEGP 

PNTW 

0 

PNTW 

0 

LETA 

PNTW 

1 

LTI 

PNTW 

2 

SVEL 

PNTW 

3 

LLEN 

STPM-1 

0 


STORE    INDEX    FOR    RETURN 


STORE    TIME   BAND   CREATED 
STORE    UFVNOW   AS   BAND    VELOCITY 

DELETE   ALL  BANDS    IF    K5 1    ON 
INCREMENT   BAND   COUNT   BY    1 


BUMP    TABLE    INDEX  BY    8 
RETURN 
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STORE   ETA 


STORE   Tl 


STORE    VELOCITY 


STORE    VEH   LENGTH    IN    SEC 
RETURN 


163 


XLTE   ROUTINE  AND   END   OF  BINK    CODE      #33                                      PAGE      35 

1339    'XLTE   ROUTINE   AND    END    OF  BINK  CODE      #33 

D  0 

XLTE             STX  $-1 

JMP  UFMMMODE 

UFRET          LDX  XLTE-1 

JSX  *    0        RETURN 

BEMY              LDX  SIXR        CHECKED  ALL    7   BINS? 

IXS  2 

JMP  BNCK         NO. BUMP   INDEX, CHECK    NEXT   BIN 

LDW  =1         YES.    SET  BAND   INDICATOR    TO    SHOW 

STW  BIND        CREATING   LAST   BAND    IN   GBT 

LDX  TX 

LDW  =X'8000' 

SMB  GBT 

STW  *   GBT+4        SET   TRAILING    EDGE    TO    X'8000* 

LDW  LLEN        STORE   LENGTH   OF   LEADING    VEH 

STW  VLNGTH      FOR    USE   IN    XLTE 

LDW  LETA         T 

STW  LTA         T 

LDW  =-l         T 

STW  TTA         T 

JSX  GPOK         SET    UP   BAND   IN    TABLE 

SLM 

LDX  BINK-1 

JSX  *    0 


1CAC 

OOOO 

1340 

1CAD 

64AC 

1341 

1CAE 

163C 

13  42 

1CAF 

94AC 

1343 

ICBO 

2800 

1344 

1CB1 

9034 

1345 

1CB2 

04  02 

1346 

1CB3 

13E0 

1347 

1CB4 

875B 

1348 

1CB5 

7035 

1349 

1CB6 

905B 

1350 

1CB7 

876D 

1351 

ICB8 

0089 

1352 

1CB9 

7C05 

1353 

1CBA 

803A 

1354 

1CBB 

705F 

1355 

ICBC 

8039 

1356 

1C3D 

7040 

1357 

1CBE 

875C 

1358 

1CBF 

7041 

1359 

1CCO 

2453 

1360 

1CC1 

0040 

1361 

1CC2 

93D6 

1362 

1CC3 

2800 

1363 
1364 
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1365 

'DATA    TABLES 

FOR    GAP    COMPUTATIONS      #34 

1366 

* 

1367 

*      FOLLOWING 

CONSTANT 

VALUES    DEFINED 

1368 

*      IN   RAMP    VEH    PROCESSING   ROUTINE, 

1369 

*      VOL 

III,    I 

DAGES    9-2 

AND    10-2. 

13  70 

* 

ICC  4 

0190 

1371 

HOCM 

D 

X'190' 

0.8   SEC    (7/9) 

ICC  5 

0000 

1372 

H2PM 

D 

0 

1CC6 

0000 

13  73 

Fl  FM 

D 

0 

1CC7 

0000 

1374 

FILM 

D 

0 

1CC8 

0000 

1375 

F2FM 

D 

0 

1CC9 

0000 

1376 

F2LM 

D 

0 

1CCA 

0000 

1377 

F30M 

D 

0 

1CCB 

0000 

1378 

H1CM 

D 

0 

1CCC 

0000 

1379 

H2CM 

D 

0 

1CCD 

0000 

1380 

H1PM 

D 

0 

1CCE 

0000 

1381 

HLPM 

D 

0 

1CCF 

0000 

1382 

TF1  M 

D 

0 

1CDO 

0000 

13  83 

TLTM 

D 

0 

1CD1 

0000 

13  84 

TRS!* 

D 

0 

1CD2 

0000 

1385 

SI1  M 

D 

0 

1CD3 

0591 

1386 

ARCM 

D 

X*591 * 

2.85    (7/9) 

1CD4 

01CE 

1387 

BPCM 

D 

X  *  1 C  E  ' 

.925    (7/9) 

1CD5 

2  CI  A 

1388 

CBNM 

D 

X'2C1A' 

88.2    FT/SEC    (9/7) 

1CD6 

1180 

13  89 

CSTM 

D 

X'1180' 

17.5    (8/8) 

1CD7 

2900 

1390 

CTAM 

b 

X'2900' 

41    FT/SEC    (8/8) 

1CD8 

OCCD 

1391 

HABM 

D 

X'CCD' 

0.1    (1/15) 

1CD9 

07  5A 

1392 

02  CM 

D 

Xf  75A  * 

14.7    PSI    (9/7) 

1CDA 

2800 

1393 

PONM 

D 

X'2800' 

0.9/73.5    (7/23) 

1CDB 

OFAO 

1394 

TDCM 

D 

X'FAO* 

.125/1.024    (1/15) 

1CDC 

0E40 

1395 

TXCM 

D 

X'E40' 

.057/1.024    (0/16) 

1CDD 

1B80 

1396 

TXPM 

D 

Xf 1B80' 

.11/1.024    (0/16) 

1CDE 

18DC 

1397 

TP3M 

D 

X ' 1 8DC  ' 

.777    (3/13) 

1CDF 

2800 

1398 

TZPM 

D 

X'2800' 

.16/1.024    (0/16) 

1CEO 

0148 

1399 
1400 

XZNM 

D 

XM48' 

.01    (1/15) 
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1401  *    GRAM  ROUTINE  PAGE    1    OF    3      #35 

1CE1    0000  1402  D  0  . 

1CE2   64E1  1403  GRAM             STX  $-1                REQUIRED   GAP   SIZE   PGM 

1CE3  8005  1404  LDW  VMRG 

1CE4    0917  1405  SLA  7 

1CE5    7066  1406  S TW  VGRAM 

1CE6    8052  1407  LDW  LVEL        LEAD    VEHICLE    VELOCITY    9/7 

1CE7    F05,A  1408  CMW  TVEL        TRAILING    VEHICLE    VEL 

ICE8    0390  1409  SLE 

1CE9    1504  1410  JMP  GOAM        YES 

1CEA    74C7  1411  STW  FILM        NO.    LEAD    VEHICLE    VELOCITY 

1 CEB    805A  1412  LDW  TVEL 

1CEC    74C6  1413  STW  Fl FM        TRAILING    VEHICLE    VELOCITY 

ICED  2562  1414  JSX  Fl CM      CALC    H2    FOR    TRAILING    VEH 

1CEE   74CC  1415  GRRM             STW  H2CM        STORE   H2 

1 CEF   8066  1416  LDW  VGRAM 

1 CFO    F052  1417  CMW  LVEL 

1CF1    0860  1418  SEQ 

1CF2    14F6  1419  JMP  GRYM        NO 

1CF3    0100  1420  CLR                YES.    CLEAR    HI 

1CF4    74C3  1421  STW  H1CM 

1  CF5    1  51 F  1422  JMP  GRZM 

1CF6    0880  1423  GRYM             SGR               RAKP    VEH    FINING    ON    LEAD    VEH? 

1CF7    14FE  1424  JMP  GRWM        NO.    RAMP    VEH   FALLING    AWAY 

1CF8    74C6  1425  STW  Fl  FM        YES.    RAMP    VEHICLE    VELOCITY 

1CF9    8052  1426  LDW  LVEL        LEAD    VEHICLE    VELOCITY 

1CFA    74C7  1427  STW  FILM        STORE  LEAD    VEHICLE    VELOCITY 

1CFB   2562  1428  JSX  Fl CM      CALCULATE    TIME    (HI)    FOR    RAMP 

1429  *  VEHICLE    TO   DECELERATE 

1430  *                                                             TO   LEAD    VEHICLE'S    VELOCITY 
1CFC    74CB  1431  GYYM             STW  H1CM        STORE   HI 

1CFD    1 51  F  1432  JMP  GRZM 

1CFE   74C8  1433  GRWM             STW  F2FM        RAMP    VEHICLE    VELOCITY 

1CFF   8052  1434  LDW  LVEL        LEAD    VEHICLE    VELOCITY 

1D00    74C9  1435  STW  F2LM        STORE  LEAD    VEHICLE    VELOCITY 

1D01    2580  1436  JSX  F2CM     CALCULATE   TIME    (HI)    FOR    RAMP 

1437  *  VEHICLE   TO   ACCELERATE    TO 

1438  *                                                             LEAD    VEHICLE'S    VELOCITY 
1  D02    74CB  1439  GWWM             STW  H1CM        STORE   HI 

1D03    1 51 F  1440  JMP  GRZM 
1441 
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GRAM  ROUTT[\IS    PAGE   2    OF    3 


oc 


PAGE      38 


1  D04 
1  D05 
1D06 
1  D07 
1  D08 
1  D09 
I  DOA 
1D0B 
1  DOC 
1  DOD 
1  DOE 
1DOF 


1  DIO 
1  Dl  1 
1  D12 
1  D13 
1  Dl  4 
I  Dl  5 
1  D16 
1  D17 
1  Dl  8 
1  D19 
1  Dl  A 
1  DIB 


1  D1C 
1  Dl  D 
1  Dl  E 
1  Dl  F 
1D20 
1  DEI 


80  5  A 
F066 
0890 
1518 
8066 
F052 
0880 
1514 
74C6 
8052 
74  C7 
2562 


74  CB 
0100 
74  CC 
151F 
0100 
74  CB 
74CC 
1  51  F 
74  C9 
8066 
74C8 
2580 


74  CC 
0100 
74  CB 
8052 
74CA 
254B 


1442 
1443 
1444 
1445 
144  6 
1447 
1443 
1449 
1450 
1451 
14  52 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
14  60 
1461 
14  62 
14  63 
14  64 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
14  72 
1473 
1474 
1475 
1476 
1477 


'    GRAM 
GOAM 


* 
* 
FRRM 


GPAM 


GNAM 


* 
GNNM 


GRZM 


ROUTINE 
LDW 
CMW 
SLE 
JMP 
LDW 
CMW 
SGR 
J  MP 
STW 
LDW 
STW 
JSX 


STW 
CLR 
STW 
J  MP 
CLR 
STW 
STW 
J  MP 
STW 
LDW 
STW 
JSX 


STW 
CLR 
STW 
LDW 
STW 
JSX 


PAGE   'c 
TV  EL 
VGRAM 

G  NA  M 

VGRAM 

LVEL 

GPAM 
Fl  FM 
LVEL 
Fl  LM 
Fi  CM 


HICM 

H2CM 
GRZM 

HICM 

H2CM 

GRZM 

F2LM 

VGRAM 

F2FM 

F2  CM 


OF   3      #36 

TRAILING    VEHICLE    VELOCITY 


GAINING 
YES 


ON   RAMP    VEHICLE? 


LEAD    VEH    VEL.    RAMP    VEHICLE 
GAINING    ON   LEAD    VEHICLE? 
NO.    GAP    OPENING    AT   BOTH   ENDS. 
YES.    STORE   RAMP    VEH    VELOCITY 

STORE   LEAD    VEHICLE    VELOCITY 
CALCULATE    TIME    (HI)    FOR   RAMP 
VEHICLE   TO    DECELERATE   TO    LEAD 
VEHICLE'S    VELOCITY 

STORE   HI 

CLEAR  H2  SINCE  NO 

TRAILING  HEADWAY  NEEDED 

CLEAR  HI  AND  H2  SINCE 

GAP  IS  OPENING  AT  BOTH  ENDS 


H2CM 

HICM 
LVEL 
F30M 
F3CM 


TRAILING    VEHICLE    VELOCITY 

STORE  RAMP    VEHICLE    VELOCITY 
CALCULATE    TIME    (H2)    FOR    RAMP 
VEHICLE    TO  ACCELERATE    TO 

TRAILING    VEHICLE'S    VELOCITY 
STORE   H2 

CLR    HI    SINCE   THE   LEAD    VEH    IS 
PULLING   AWAY    FROM   THE   RAMP    VEH 
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GRAM  ROUTINE   PAGE   3    OF   3      #37 


PAGE      39 


1478    f    GRAM 

ROUTINE 

PAGE   3    OF 

1  D22 

0081 

1479 

SPMUL 

1  D23 

2490 

1  D2  4 

1CDE 

1480 

D 

TP3M 

1  oe5 

0000 

1481 

D 

0 

1  D26 

74D1 

14  82 

STW 

TRSM 

1  D27 

8037 

14  33 

LDW 

GLTA 

1  D28 

B038 

1484 

SUB 

GLTl 

1  D29 

0081 

1485 

SPMUL 

1  D2A 

2490 

I  D2B 

1CD1 

14  86 

D 

TRSM 

i  Dec 

0000 

1487 

D 

0 

1  D2D 

0912 

1488 

SLA 

2 

1  D2E 

A04F 

1489 

ADD 

LHDY 

1  D2F 

74CD 

1490 

STW 

H  1 P  M 

1  D30 

S05A 

1491 

LDW 

TVEL 

1  D31 

74CA 

1492 

STW 

F30M 

1D32 

2543 

1493 

JSX 

F3CM 

1  D33 

0081 

1494 

SPMUL 

1  D34 

2490 

1  D35 

TCDE 

1495 

D 

TP3M 

1  D36 

0000 

1496 

D 

0 

1D37 

7  4D1 

1497 

STW 

TRSM 

1D3  3 

3058 

1498 

LDW 

TETA 

1  D39 

B059 

1499 

SUB 

TT1 

1  D3A 

0031 

1500 

SPMUL 

1  D3B 

2490 

1  D3C 

1CD1 

1501 

D 

TRSM 

1  D3D 

0000 

1502 

D 

0 

1  D3E 

0912 

1503 

SLA 

2 

1  D3F 

A050 

1504 

ADD 

THDY 

1  D40 

74C5 

1505 

STW 

H2PM 

1  D41 

84C3 

1506   DWRM 

LDW 

H1CM 

1  D42 

A4CD 

1507 

ADD 

H1PM 

1  D43 

74CE 

1508 

STW 

HLPM 

1  D44 

84CC 

15J9 

LDW 

H2CM 

1  D45 

A4C5 

1510 

ADD 

H2PM 

1  D46 

A772 

1511 

ADD 

:X*7D'         L 

1  D47 

A4CE 

1512 

ADD 

HLPM 

1  D48 

7055 

1513 

STW 

RGAP 

1  D49 

94E1 

1514 

LDX 

GRAM-1 

1  D4A 

2800 

1515 
1516 

JSX    * 

0        RETURN 

#37 


LENGTH(SEC)    OF    15'    RAMP    VEH 
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STX 

SI1  M 

LDW 

F30M 

crow 

CBNM 

SGR 

J  MP 

TATM 

LDW 

XZNM 

LDX 

SUM 

JSX    * 

0 

CMW 

02  CM 

SLE 

J  MP 

BhUM 

LDW 

HA3M 

LDX 

Sll  M 

JSX    * 

0 

LDW 

CBNM 

SUB 

F3  0M 

SPMUL 

D 

PONM 

D 

0 

ADD 

XZNM 

LDX 

Sll  M 

JSX   * 

0 

F3CM  ROUTINE      #38  PAGE      40 

1517    '    F3CM  ROUTI NE      #38 

1  D4B   64D2  1518   F3CM 

1  D4C   84  CA  1519 

1  D4D   F4D5  1520 

1 D4Z    0830  1521 

1  D4F    1553  1522 

1  D50    84E0  1523 

1  D51    94D2  1524 

1 D52    2300  1525 

1  D53   F4D9  1526    TATM 

1  D54    0390  1527 

1  D55    1559  1528 

1  D5<S    34D8  1  529 

1  D57    94D2  1530 

1  D53  2300  1531 

1 D59    84 D5  15  32    BKUM 

1  D5A    3  4CA  1533 

1  D53    0081  1534 
1  D5C   2490 

1  D5D    1CDA  1535 

1  D5E   0000  1536 

1  D5F   A4E0  1537 

1  D60   94D2  1538 

1 D61    2300  1539 

1540 

Fl  CM  ROUTINE         #39  PAGE      41 

1541     *    F1CM  ROUTINE         #39 

1  D62    64D2  1542    FICM  STX        Sll  M 

1 D63    84C6  1543  LDW         Fl  FM        TRAILING    VEHICLE    VELOCITY 

1  D64   34C7  1544  SUB         FILM        LEAD    VEHICLE    VELOCITY 

1  D65    091  1  1545  SLA         1 

1 D66    03A0  1546  SNO 

1 DS7    1748  1547  JMP         UFPRA 

1  DS8   74  CF  1548  STW         TF1  M 

1  D69    84  C7  1549  LDW         FILM 

1  D6A    091  1  1550  SLA         1 

1  D63    74C7  1551  STW         FILM 

1  D6C    84CF  1552  LDW         TF1M 

I  DSD   0081  1553  SPMUL 

1  D6E  2490 

1  D6F    1CD3  1554  D  TDCM 

1 D70    0000  1555   LSHM  D  0 

1D71    F4C7  1556  CMW         FILM 

1 D72    0890  1557  SLE 

1 D73    174D  1558  JMP         UFPRB 

1 D74    0081  1559  SPDI V 

1  D75   24E0 

1  D76    1  D70  1560  D  LSHM 

1  D77    1CC7  1561  D  FILM 

1 D78    0000  1562  DO 

1  D79    0081  1563  SPMUL 

1 D7A    2490 

1  D7B    1CCF  1564  D  TF1  M 

1  D7C    0000  15  65    LS2M  D  0 

1  D7D   091  1  1566  SLA         1 

1  D7E  94D2  1567  LDX        SUM 

1 D7F   2800  1568  JSX    *    0 

1569 
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F2CM   ROUTINE      #40  PAGE      42 

1570    '    F2CM  ROUTINE      #40 


1  D3  0    64 D2 

1571 

F2CM 

STX 

SI1  M 

1  DBi     S4C9 

15  72 

LDW 

F2LM 

I  DB2    B4C8 

1573 

SUB 

F2FM 

1  D63    091  1 

1574 

SLA 

1 

1  D3  4    08A0 

1575 

SNO 

1  D8  5    17  52 

1576 

J  MP 

UFPRC 

1  DS5    74D0 

1577 

STW 

TLTM 

1  D6  7    F4D6 

1578 

CMW 

CSTM 

i  D68   0890 

1579 

SLE 

1  DS9    1590 

1580 

J  MP 

FXCM 

1  D8A    S4D0 

1581 

LDW 

TLTM 

1  D63    0081 

15  82 

SPMUL 

1  C6C    2490 

1  D3D    1  CDC 

1583 

D 

TXCM 

1  DSE   3003 

1584 

D 

0 

1  D3F    159E 

1585 

J  MP 

ATCM 

1  D90    F4D7 

1586 

FXCM 

CMW 

CTAM 

1D91    0390 

1587 

SLE 

1  D32    1599 

1588 

J  MP 

FBCM 

1  D93    0081 

15  89 

SPMUL 

1  D94   2490 

1  C9  5    1  CDD 

1550 

D 

TXPM 

1  D9S    0000 

1591 

D 

0 

1  D9  7    3  4D4 

1592 

SUB 

BPCM 

1  D98    159E 

1593 

J  MP 

ATCM 

1  D99    0081 

1594 

FBCM 

SPMUL 

1  DBA    2490 

1  D9B    1CDF 

1595 

D 

TZPM 

1  ESC    0000 

1596 

D 

0 

1  09  D  B4D3 

1597 

SUB 

ARCM 

1  D9E  94D2 

1598 

ATCM 

LDX 

sum 

1  D9F   2800 

1599 

JSX   * 

0 

1  DAO    0080 

1600 

EXI  >1 

SMB 

JFRM 

I  DAI     1020 

1601 
1602 

J  MP 

JFRM 

WINKOMATIC 

OVERHEAD   SIGN 

PGM      #41                                               -PAGE 

1603 

'WINKOMATIC    OVERHEAD    SIGN      PGM      #41 

1  DA2    0000 

1604 

DATA 

0 

1  DA3    65A2 

1505 

SSCK 

STX 

$-1         SAVE  RETURN 

1  DA  4   8002 

1606 

LDW 

MODE 

1  DA5    F75F 

1607 

CMW 

r3         MOVING    MODE? 

1  DA6   0870 

1608 

SNE 

__ 

1  DA7    15AB 

1609 

J  MP 

SS02        YES.      ACTIVATE   DBGB    MSG. 

1  DAS    8773 

1610 

LDW 

=X'200"         NO.      ACTIVATE   PTS    MSG 

1  DA9    7063 

161  1 

SS01 

STW 

SPSN 

1  DAA    15B2 

1612 

JMP 

RTSS 

1613 

*      FOLLOWING    CODE  SETS    OVHD  SIGN 

1614 

*      TO 

PTS    WHEN 

MM   GREEN   BANDS   ARE 

1615 

*      MASKED. 

— .. 

1  DAB   SOOC 

1616 

SS02 

LDW 

K51F 

1  DAC   0810 

1617 

SAP 

1  DAD   15B0 

1618 

JMP 

SS03 

1  DAE   8773 

1619 

LDW 

=X'200'         SET   UP   PTS    MSG 

1  DAF    15A9 

1620 

JMP 

SS01 

1  DBO   8774 

1621 

SS03 

LDW 

=X'400'         SET   UP   DBGB    MSG 

1DB1     15A9 

1622 

JMP 

SS01 

1  DB2    95A2 

1623 

RTSS 

LDX 

SSCK-1 

1  D33   2800 

1624 
1625 

JSX    * 

0        RETURN 

43 
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YIELD   SIGM    CONTROL    PGM      #42 


PAGE      44 


1626    *    YIELD    SIGN    CONTROL    PGM      #42 


1  D34 
1  D65 
1  DB6 
1  DB7 
1  C68 
1  D39 
1  DBA 
1  £63 
1  DBC 
1  DBD 
1  D3E 
1  DBF 
1  DCO 
1  DC1 
1  DC2 
1  DC3 
1  DC -'I 
1  DC5 
1  DC6 
1  DC7 
1  DCS 

1  X9 
1  DCA 
1  DCB 
1  DCC 
1  DCD 
1  DCE 
1  DCF 
1  DDO 
1  DD1 
1  DD2 

1  DD3 
1  DD4 
1  DD5 
1  DD6 
I  DD7 
1  DD8 
I  DD9 
1  DDA 
1  DDB 
1  DDC 
1  DDD 
1  DDE 
1  DDF 
1  DEO 
1  DEI 
1  DE2 
1  DE3 
1  DE4 
1  DE5 


0000 

0040 

65B4 

800C 

0820 

15D3 

8002 

F753 

0830 

15D3 

02  F3 

1628 

0800 

15C3 

15C9 

0082 

8031 

E62B 

080^ 

15C9 

15D3 

1  X9 

02F5 

E62C 

0800 

15CE 

15  DA 

00S2 

802F 

E62D 

0300 

15  DA 

8775 
7060 
0080 
3021 
A062 
7061 
15E4 
8060 
0820 
15E4 
0080 
8021 
B061 
0810 
15E4 
0100 
7060 
95B4 
2800 


162  7 
162  8 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 


MWC 


CK01 


CK015 


*- 
CK02 


CK03 


RTMWC 


DATA 

SLM 

STX 

LDW 

SAM 

J  MP 

LDW 

CMW 

SGR 

J  MP 

DIN 

AND 

SAZ 

J  MP 

J  MP 

SMB 

LDW 

AND 

SAZ 

J  MP 

J  MP 

EQU 

DIN 

AND 

SAZ 

JMP 

J  MP 

SMB 

LDW 

AND 

SAZ 

JMP 

LDW 
STW 
SMB 
LDW 
ADD 
STW 
JMP 
LDW 
SAM 
JMP 
SMB 
LDW 
SUB 
SAP 
JMP 
CLR 
STW 
LDX 
JSX    ' 


STORE   INDEX    FOR   RETURN 
IF   GB    IS    MASKED    (MERGE 
AREA    OCCUPIED)    TURN    ON 
YIELD   SIGN 
ALSO    TURN   SIGN    ON 


IF   If! 
MODE 


I  NIT    OR    METERING 


TAMPA    SENSOR    R3    ACTIVATED? 


NO 

YES 
BAND 


IS    THERE   A    GREEN 
AT  R3    NOW? 


$-2 
K51F 

CK02 

MODE 
=  1 

CK02 

X'F',3 

TSR3 

$+2 

CK015 

D3UF 

DBUF+8 

TR3DM 

$+2 
CK02 
S 
15,5 

TSR4 

$+2 

CK03 

DBUF 

DBUF+6 

TR4DM 

CK03 


rX'8002'         NO.      GO   TUR-N    ON    MERGE 

MWCS         WITH    CAUTION    SIGN 

TIME        AND   SAVE   TIME   +   5    SECONDS 

TIME 

MWCONTM 

MWON 

R  TMWC 

MWCS 


RETURN 
IS    SIGN 


ON 


RTMWC 
TIME 
TIME 
MWON 


RETURN 
YES 
TIMER    RUN 


OUT? 


RTMWC 

YES 
MWCS 
MWC-1 
0        RETURN 


RETURN 
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RAMP  QUEUEING    PGM        #43  PAGE      45 


1680 

'    RAMP 

QUEUE1NG    PGM        #43 

1  DE6 

0000 

1  DE7 

65  E6 

1631 

CHKK19 

SUBR 

1  DE8 

0080 

1682 

SMB 

RLTQUE      GET  QUEUE  STATUS 

1  DE9 

8048 

1683 

LDW 

RLTQUE 

1  DEA 

0820 

1684 

SAM 

IF   NEGATIVE  THEN    CL 

I  DEB 

15EE 

1685 

J  MP 

TIM1 

1  DEC 

802  E 

1686 

LDW 

K19N0QSG      SO   USE   LONG   RE 

1  DED 

15EF 

1687 

J  MP 

K190UT 

1  DEE 

302D 

1688 

TIM1 

LDW 

K19QSG        IF  QUEUED   THEN 

1  DEF 

701B 

1689 
1690 

K190UT 
*- 

STW 

MAXRED        RED   TIME 

1  DFO 

02  F5 

1691 

DIN 

15,5        R5-R1    CHECK 

1  DF1 

E77S 

1692 

AND 

=2496 

1  DF2 

7631 

1693 

STW 

WRK 

1  DF3 

02  F3 

1694 

DIN 

15,3 

1  DF4 

E777 

1695 

AND 

=  4 

1  DF5 

C631 

1696 

OR  I 

WRK 

1  DFS 

E62F 

1697 

AND 

R  MPS 

1  DF7 

762F 

1698 

STW 

RMPS 

1  DF3 

0300 

1699 

SAZ 

1  DF9 

1601 

1700 

J  MP 

RMPCT 

1  DFA 

7604 

1701 

STW 

RCNT 

1  DFB 

375C 

1702 

LDW 

=  -1 

1  DFC 

762F 

1703 

S  TW 

RMPS 

1  DFD 

00  80 

1704 

SMB 

TIME 

1  DFE 

8021 

1705 

LDW 

TIME 

I  DFF 

7603 

1706 

STW 

RCLK 

1  EOO 

1607 

1707 

J  MP 

MERCHK 

1  EOl 

1708 

RMPCT 

EQU 

$ 

1  EOl 

008F 

1709 

cusc 

1  E02 

26  E8 

1  E03 

0000 

1710 

RCLK 

D 

0 

1  E04 

0000 

1711 

RCNT 

D 

0 

1E03 

0004 

1712 

RLIM 

D 

4     SEC 

1  EOS 

161C 

1713 

J  MP 

QHMAX 

1  E07 

1714 

MERCHK 

EQU 

$ 

1E07 

02  F3 

1715 

DIN 

15,3         Ml,    M2    CHECK 

1  EOS 

E778 

1716 

AND 

=2176 

I  E09 

ES30 

1717 

AND 

MAS 

1  EOA 

7630 

1718 

STW 

MAS 

1  EOB 

0800 

1719 

SAZ 

I  EOC 

1614 

1720 

J  MP 

MAC  NT 

1  EOD 

7617 

1721 

STW 

MCNT 

1  EOE 

875C 

1722 

LDW 

=  -1 

1  EOF 

7630 

1723 

STW 

MAS 

1  El  0 

0080 

1724 

SMB 

TI  ME 

1  El  1 

8021 

1725 

LDW 

TIME 

1  El  2 

7616 

1726 

STW 

MCLK 

1  E13 

161A 

1727 

J  MP 

CKKEXT 

1  E14 

1728 

MAC  NT 

EQU 

$ 

1  El  4 

008F 

1729 

cusc 

1  El  5 

26  E8 

1  El  6 

0000 

1730 

MCLK 

D 

0 

1  El  7 

0000 

1731 

MCNT 

D 

0 

1  El  8 

OOOA 

1732 

MLIM 

D 

10      SEC 

1  El  9 

1  61  C 

1733 

J  MP 

QHMAX 

D    TIME 
SHORT 
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RAMP  QUEUEING    PGM        #43  PAGE      46 

1  El  A      1734    CKKEXT         EQU        $ 
1  El  A    95E6      1735  EXIT      CHKK19 


1  E1B   2  800 

1  El  C 

1736  QHMAX 

EQU 

$ 

1  El  C   806A 

1737 

LDW 

MAXREDG 

) 

1  El  D  701B 

1738 

STW 

MAXRED 

1  El  E  0080 

1739 

SMB 

TIME 

KEEP    TIME    OVERFLOWING 

1  El  F  8021 

1740 

LDW 

TIME 

1  E20  B75D 

1741 

SUB 

r500 

1E2I    7616 

1742 

STW 

MCLK 

FOR    MERGE  AREA    CLOCK 

1  E22    7603 

1743 

STW 

RCLK 

AND  RAMP   CLOCK 

1  E2  3   8605 

1744 

LDW 

RLIM 

SECOND   COUNTS    FOR 

1  E24    7604 

1745 

STW 

RCNT 

RAMP 

I  E2  5    8618 

1746 

LDW 

MLIM 

AND   MERGE  AREA 

1  E26   7617 

1747 

STW 

MCNT 

1  E27    I  61 A 

1748 
1749 

J  MP 

CKKEXT 

UF   SENSOR  MASKS  #44                                                                              PAGE      47 

1750  '    UF    SENSOR    MASKS      #44 

1751  * 

1752  *      TAMPA    RAMP  SENSOR    MASKS 

1753  * 

1  E28    0004      1754  TSR3  D  X'0004' 

1  E29    0200      1755  TSR6A  D  X,0200f 

1  E2A    0400      1756  TSR6B  D  X'0400' 

1E2B    FOOO      1757  TR3DM  D  X'FOOO'      MASK    FOR    GB    LIGHTS 

1758  *  OPPOSITE   R3 

1  E2C   0080      1759  TSR4  D  X'SO'        R4   SENSOR 

1E2D0007      1760  TR4DM  D  7           LIGHTS    OPPOSITE   R4 

1E2E0020      1761  TSR7  D  X'20*             R7   SENSOR 

1  E2F                  1762  RMPS  RES  1 

1  E«30                  1763  MAS  R  ES  1 

1  E31                   1764  WRK  RES  1 

1765 
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1766 

'    UF   ROUTINE 

#45 

1767 

* 

1768 

*    VARIABLE   SPE 

ED   GREEN 

1769 

* 

20CC 

1770 

UFPAM 

EQU 

X^OCC 

20CD 

1771 

UFPLA 

EQU 

XT20CD' 

20CE 

1772 

UFPBL 

EQU 

X'20CE' 

1  E32 

0000 

17  73 

UFTMP 

DATA 

0 

1  E33 

0000 

1774 

UFTAE 

DATA 

0 

1  E34 

0000 

1775 

UFTSL 

DATA 

0 

1  E35 

0000 

1776 

UFTDB 

DATA 

0 

1  E36 

0000 

17  77 

UFVNOW 

DATA 

0 

1  E37 

0000 

1778 

UFVNOWX 

DATA 

0 

1  E38 

034C 

17  79- 

UF844 

DATA 

844 

1  E39 

0625 

1780 

UF1 573 

DATA 

1573 

1  E3A 

0164 

1781 

UF3  56 

DATA 

356 

1  E3B 

OB  44 

1782 
1783 

UF2  884 
* 

DATA 

2884 

1  E3C 

8039 

1784 

UFMMMODE 

LDW 

LETA 

1  E3D 

A051 

1785 

ADD 

LTHDY 

1  E3E 

A05F 

1786 

ADD 

VLNGTH 

1  E3F 

0080 

1787 

SMB 

TIME 

1  E40 

B021 

1788 

SUB 

TIME 

1  E41 

7632 

1789 

STW 

UFTMP 

1  E42 

0088 

1790 

SMB 

UFPAM 

1  E43 

BOCC 

1791 

SUB 

UFPAM 

1  E44 

7633 

1792 

STW 

UFTAE 

1  E45 

0088 

1793 

SMB 

UFPLA 

1  E46 

BOCD 

1794 

SUB 

UFPLA 

1  E47 

7634 

1795 

STW 

UFTSL 

1  E48 

0038 

17^6 

SMB 

UFPB  L 

1  E49 

BOCE 

1797 

SUB 

UFPBL 

1  E4A 

7635 

1793 

STW 

UFTDB 

1  E4B 

8632 

1799 

LDW 

UFTMP 

1  E4C 

0810 

1800 

SAP 

1  E4D 

1S55 

1801 

J  MP 

UFATMP 

1  E4E 

8633 

1802 

LDW 

UFTAE 

1  E4F 

0810 

1803 

SAP 

1  E50 

165A 

1804 

J  MP 

UFFAST 

1  E51 

8634 

1805 

LDW 

UFTSL 

1  E52 

0810 

1806 

SAP 

1  Z53 

1668 

1807 

J  MP 

UFACC 

1  E54 

1676 

1808 

J  MP 

UFSLOW 

1  E55 

8005 

1809 

UFA  IMP 

LDW 

VMRG 

1  E56 

7636 

1810 

STW 

UFVNOW 

1  E57 

8638 

181  1 

LDW 

UF844 

1  E5  8 

0040 

1812 

SLM 

1  E59 

14AF 

1813 

J  MP 

UFRET 

1  S5A 

8005 

1814 

UFFAST 

LDW 

VMRG 

1  E5B 

7  5  36 

1815 

STW 

UFVNOW 

1  E5C 

B757 

1816 

SUB 

=  44 

1  E5D 

0130 

1817 

CAX 

1  E5£ 

0040 

1818 

SLM 

1  E5F 

8E80 

1819 

LDW    * 

FASTBL 

1  EjSO 

0081 

1820 

SPMUL 

1  ESI 

2490 

1  E62 

1  E32 

1821 

DATA 

UFTMP 

TIME   TO   MERGE   POINT 
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1  E63 

OOOO 

1822 

1  E64 

01  10 

1823 

1  E65 

A638 

1824 

1  E6  6 

0040 

1825 

1  E67 

14AF 

1826 

1  ESS 

8639 

1827 

1  E69 

0081 

1  32  8 

1  E6A 

2490 

1  ESU 

1  E34 

1829 

1  ESC 

0000 

1830 

1  E6D 

01  10 

1831 

1  ESE 

0130 

1832 

1  BSF 

A63A 

1833 

1  E7  0 

0903 

1834 

1  E7I 

C76D 

1335 

1  E72 

7S36 

1836 

1  E75 

0040 

1337 

1  E74 

3E97 

1838 

1  1/5 

14AF 

1839 

1  E76 

3757 

1840 

1  E77 

7636 

1841 

1  113 

8635 

1842 

1  E79 

0081 

1843 

1  E7A 

2490 

1  £7y 

1  E3B 

1844 

1  E7C 

0000 

1845 

1  E70 

00  4  0 

1846 

1  E7E 

01  10 

1847 

1  E7F 

1  4AF 

1848 
1849 

UFACC 


UFSLOW 


DATA 

0 

CMP 

ADD 

UF844 

SLM 

J  MP 

UFRET 

LDW 

UF1 573 

SPMUL 

DATA 

UFTSL 

DATA 

0 

CMP 

CAX 

ADD 

UF3  56 

SRA 

3 

OR  I 

rX'8000' 

STW 

UFVNOW 

SLM 

LDW    * 

UFEDGE 

J  MP 

UFRET 

LDW 

=  44 

STW 

UFVNOW 

LDW 

UFTDB 

SPMUL 

DATA 

UF2  884 

DATA 

0 

SLM 

CMP 

J  MP 

UFRET 
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MM   LOGIC  #46 


1850    '       DATA 

TABLES 

FOR    UF 

1  E80 

OB  44 

1851    FASTBL 

DATA 

2884 

1  E81 

0B35 

1852 

DATA 

2949 

1  E82 

0BC7 

1853 

DATA 

3015 

1  E33 

0C08 

1854 

DATA 

3080 

1  E84 

0C4A 

1855 

DATA 

3146 

1  E85 

0C3B 

1856 

DATA 

321  1 

1  E86 

OCCD 

1857 

DATA 

3277 

1  E87 

ODOE 

1858 

DATA 

3342 

1  E83 

0D50 

1359 

DATA 

3408 

1  E89 

0D9  1 

1360 

DATA 

3473 

1  E8A 

0DD3 

1861 

DATA 

3539 

1  EBB 

OEM 

1862 

DATA 

3604 

1  EBC 

0E56 

1863 

DATA 

3670 

1  E8D 

0E98 

1864 

DATA 

3736 

1  E8E 

0ET39 

1865 

DATA 

3801 

1  E8F 

0F1B 

1866 

DATA 

3867 

1  E90 

0F5C 

1867 

DATA 

3932 

1  E91 

0F9  E 

1868 

DATA 

3998 

I  E92 

OFDF 

1869 

DATA 

4063 

1  E93 

1021 

1870 

DATA 

4129 

1  E94 

1062 

1871 

DATA 

4194 

1  E95 

I0A4 

1872 

DATA 

4260 

1  E96 

10E5 

1873 
1874 
1875 
1876 

DATA 

4325 
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1377 

'DATA    TABLES    FOR    UF 

1  E97 

0108 

1S7S 

UFEDGE        DATA 

264 

1  E9  S 

010A 

1879 

DATA 

266 

1  E99 

01  OB 

1330 

DATA 

267 

1  E9A 

010D 

1881 

DATA 

269 

1  E9B 

01  OF 

1  8S2 

DATA 

271 

1  ESC 

01  11 

1883 

DATA 

273 

1  E9D 

01  13 

1S84 

DATA 

275 

1  E9E 

01  15 

1885 

DATA 

277 

I  E9F 

01  17 

1886 

DATA 

279 

1  EA  J 

01  19 

1S87 

DATA 

281 

I  EAI 

01  IB 

1888 

DATA 

2  83 

1  EA2 

01  1C 

1389 

DATA 

284 

1  EA3 

Oil  E 

1890 

DATA 

286 

1  EA4 

0120 

1891 

DATA 

288 

1  EA5 

0122 

1892 

DATA 

290 

1  IAS 

0124 

1393 

DATA 

292 

1  EA7 

0126 

1S94 

DATA 

294 

1  EA8 

0128 

1395 

DATA 

2S6 

1  EA9 

012A 

1396 

DATA 

298 

1  EAA 

012C 

1397 

DATA 

300 

1  EAB 

01 2  E 

139  3 

DATA 

302 

i  EAC 

0130 

1899 

DATA 

304 

1  EAD 

0132 

1900 

DATA 

306 

1  EAE 

0134 

1901 

DATA 

308 

1  EAF 

0136 

1902 

DATA 

310 

1  E30 

0137 

1903 

DATA 

31  1 

1  E31 

0139 

1904 

DATA 

313 

1  ZB2 

013B 

1905 

DATA 

315 

1  EB3 

013D 

1906 

DATA 

317 

I  EB4 

013F 

1907 

DATA 

319 

1  EB5 

0141 

1908 

DATA 

321 

1  EB6 

0143 

1909 

DATA 

323 

1  EB7 

0145 

1910 

DATA 

325 

1  EB8 

0147 

191  1 

DATA 

32  7 

1  EB9 

0149 

1912 

DATA 

329 

1  EBA 

014B 

1913 

DATA 

331 

1  EBB 

014D 

1914 

DATA 

333 

I  EBC 

014F 

1915 

DATA 

335 

1  EBD 

0151 

1916 

DATA 

337 

1  HBE 

0153 

1917 

DATA 

339 

1  EBF 

0156 

1913 

DATA 

3  42 

1  ECO 

0153 

1919 

DATA 

344 

I  EC1 

01  5A 

1920 

DATA 

346 

1  EC2 

015C 

1921 

DATA 

348 

1  EC3 

015E 

1922 

DATA 

350 

1  EC4 

0160 

1923 

DATA 

352 

1  EC5 

0162 

1924 

DATA 

354 

1  EC6 

0164 

1925 

DATA 

356 

1  EC7 

0166 

1926 

DATA 

358 

1  EC8 

0168 

1927 

DATA 

360 

1  EC9 

016A 

1928 

DATA 

362 

1  ECA 

016C 

1929 

DATA 

364 

1  ZC3 

016E 

1930 

DATA 

366 

1  ECC 

0170 

1931 

DATA 

368 

1  ECD 

0173 

19  32 

DATA 

371 

1  ECE 

0175 

1933 

DATA 

373 

MM    MCDE 


#47 
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1  ECF 

0177 

1934 

DATA 

375 

1  EDO 

0179 

1935 

DATA 

377 

1  EDI 

017B 

1936 

DATA 

379 

1  ED2 

017D 

1937 

DATA 

381 

1  ED3 

017F 

1938 

DATA 

383 

I  ID  4 

0132 

1939 

DATA 

386 

1  ED5 

0184 

1940 

DATA 

388 

1  ED6 

0186 

1941 

DATA 

3S0 

1  ED7 

0138 

19  42 

DATA 

392 

1  EDS 

018A 

1943 

DATA 

394 

1  ED9 

01  8C 

1944 

DATA 

396 

1  EDA 

018F 

1945 

DATA 

399 

1  EDB 

0191 

1946 

DATA 

401 

i  EDC 

0193 

1947 

DATA 

403 

1  EDD 

0195 

1948 

DATA 

405 

1  EDE 

0197 

1949 

DATA 

407 

1  EDF 

019A 

1950 

DATA 

410 

1  EEO 

019C 

1951 

DATA 

412 

1  EE1 

019E 

1952 

DATA 

414 

1  EE2 

01A0 

1953 

DATA 

416 

1  EE3 

01A2 

1954 

DATA 

418 

1  EE4 

01A5 

1955 

DATA 

421 

1EE5 

01A7 

1956 

DATA 

423 

1  EI6 

01  A9 

1957 

DATA 

42  5 

1  EE7 

01  AB 

1958 

DATA 

42  7 

1  EE3 

01  A  E 

1959 

DATA 

430 

1  EE9 

01  BO 

1960 

DATA 

432 

1  EEA 

01  B2 

1961 

DATA 

434 

1  EEB 

01B4 

1962 

DATA 

436 

1  EEC 

01B7 

1963 

DATA 

439 

1  EED 

01B9 

1964 

DATA 

441 

1  EEE 

01  BB 

1965 

DATA 

443 

1  EEF 

01BE 

1966 

DATA 

446 

1  EFO 

01  CO 

1967 

DATA 

448 

1  EF1 

01  C2 

1968 

DATA 

450 

1  EF2 

01C4 

1969 

DATA 

452 

1  EF3 

01C7 

1970 

DATA 

455 

1  EF4 

01C9 

1971 

DATA 

457 

1  EF5 

01  CB 

19  72 

DATA 

459 

1  EF6 

01CE 

1973 

DATA 

462 

1  EF7 

01  DO 

1974 

DATA 

464 

1  EF8 

01  D2 

1975 

DATA 

466 

1EF9 

01D5 

1976 

DATA 

469 

1  EFA 

01  D7 

1977 

DATA 

471 

1  EFB 

01  D9 

1978 

DATA 

473 

1EFC 

01  DC 

19  79 

DATA 

476 

1  EFD 

01  DE 

1980 

DATA 

478 

1  EFE 

01  EO 

1981 

DATA 

480 

1  EFF 

01  E3 

1982 

DATA 

4  83 

1F0O 

01  E5 

1983 

DATA 

485 

1F01 

01  ES 

1984 

DATA 

488 

1F02 

01  EA 

1985 

DATA 

490 

IF03 

01  EC 

1986 

DATA 

492 

1  F04 

01  EF 

1987 

DATA 

495 

1  F05 

01F1 

1988 

DATA 

497 

1F06 

01  F4 

1989 

DATA 

500 

1F07 

01  F6 

1990 

DATA 

502 
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1  F08 
1F09 
1  FOA 
1  FOB 
1FOC 
1  FOD 
1FOE 
1  FOF 
1  FIO 
1  Ft  1 
1F12 
1  F13 
1  F14 
1  Fl  5 
1F1S 
1  Fl  7 
1  Fl  8 
1  Fl  9 
1  Fl  A 
I  Fl  B 
1  Fl  C 
1F1  D 
1F1  E 
1F1  F 
1  F20 
1F21 
1F22 
1  71  3 
1  F24 
1  F25 
1  F2S 
1F27 
1  F28 
1  F29 
1  F2A 
1  F2B 
1  F2C 
1  F2D 
1F2E 
1F2F 
1F30 
1F31 
IF52 
1  F33 
1  F5  4 
1F55 
1F3  6 
1F3  7 
1F3  8 
1F39 
1  F3A 
1  F3B 
1F3C 
1F3D 
1F3E 
1  F3F 
1  F40 


01  F8 
01  FB 

01  FD 
0200 

02  02 
0205 
0207 
02  OA 
02  OC 
020E 
021  1 
02  13 
0216 
02  18 
0213 

021  D 
0220 
0222 
0225 
0227 
022A 

022  C 
022F 
02  32 
0234 
0237 
02  39 
02  3  C 
023E 
02  41 
0243 
02  46 
02  49 
02  4B 
024E 
0250 
02  53 
0256 
0258 
02  5B 
02  5  D 
0260 
02  63 
02  65 
0268 
02  6B 
02  6D 
02  70 
0273 
0275 
0278 
02  7B 
027D 
02  80 
02  83 
02  86 
02  88 


1991 
1992 
1993 
199  4 
1995 
1996 
1997 
199S 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 


DATA 

504 

DATA 

507 

DATA 

509 

DATA 

512 

DATA 

514 

DATA 

517 

DATA 

519 

DATA 

522 

DATA 

524 

DATA 

52  6 

DATA 

529 

DATA 

531 

DATA 

53  4 

DATA 

556 

DATA 

539 

DATA 

541 

DATA 

544 

DATA 

546 

DATA 

549 

DATA 

551 

DATA 

554 

DATA 

556 

DATA 

559 

DATA 

562 

DATA 

564 

DATA 

567 

DATA 

569 

DATA 

572 

DATA 

574 

DATA 

577 

DATA 

579 

DATA 

582 

DATA 

585 

DATA 

587 

DATA 

590 

DATA 

592 

DATA 

595 

DATA 

598 

DATA 

600 

DATA 

603 

DATA 

605 

DATA 

608 

DATA 

61  1 

DATA 

613 

DATA 

616 

DATA 

619 

DATA 

621 

DATA 

62  4 

DATA 

62  7 

DATA 

629 

DATA 

652 

DATA 

63  5 

DATA 

65  7 

DATA 

640 

DATA 

645 

DATA 

646 

DATA 

648 
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1F41 

02  8B 

2048 

DATA 

651 

1  F42 

028E 

2049 

DATA 

654 

1  F43 

0290 

2050 

DATA 

656 

1  F4  4 

02S3 

2051 

DATA 

659 

1F45 

0296 

2052 

DATA 

662 

1F46 

0299 

2053 

DATA 

665 

1F47 

029B 

2054 
2055 

DATA 

667 
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2056    'UF   CODE 

Tp   PRINT   INIT  CONDITION    #48 

2057   * 

0046 

2058  ERRCH 

2059  * 

EQU 

X'046'        CORE  LOC    OF    ' 

'CAUSE'     CHAR 

1 F4  8    0100 

2060    UFPRA 

CLR 

1F49    0SC1 

2061 

LLB 

X'Cl  ■ 

1 F4A    0080 

2062 

SMB 

ERRCH 

1 F4B    7046 

2063 

STW 

ERRCH 

1  F4C    15A0 

2064 

J  MP 

EXIM 

1F4D   0100 

2065    UFPRE 

CLR 

1 F4E    06C2 

2066 

LLB 

X*C£' 

! F4F    0080 

2067 

smb 

ERRCH 

1 F50    7046 

2068 

STW 

ERRCH 

1F51     15A0 

2069 

J  MP 

EXIM 

1F52    0100 

2070    UFPRC 

CLR 

1F53    06C3 

2071 

LLB 

X'C3  ' 

1 F54    0080 

2072 

SMB 

ERRCH 

1  F55  '7046 

2073 

STW 

ERRCH 

1  F5G    15A0 

2074 
2075    * 
2076 

J  MP 

END 

EXIM 

1 F57    002 C 

1 F53   003B 

1  F59    FFFc 

1  F5A    FFFB 

1 F53    0001 

1 F5C    FFFF 

1  F5D  01  F4 

1  F-3  I    1  7  D4 

1  F5F   0003 

1 F60    0029 

1F61    0038 

1F62    1  D4C 

1F63    0020 

1F64    0010 

1F65    FFFE 

1F66    0002 

1F67    0025 

1 F68   0040 

1  F69    03  Eg 

1  F6A    1F40 

1F6B    0033 

1  F6C    06  D6 

1  F6D    8000 

1  F6  E  0114 

1  F6F   O0F4 

1  F70    FFF2 

1F71    0008 

1F72    007D 

1F73   0200 

1  F74    0400 

1 

1F75    8002 

1F76    09C0 

1F77    0004 

1F78    0380 

NO    ERRORS 
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CONDITION 
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PAGE 
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ABNK 

1B61 

ACTF 

1809 

ALLCLR 

1B5E 

ALLG 

2479 

ARCM 

1  CD3 

ART1 

1812 

ATCM 

1D9E 

BEGP 

182A 

BEM 

1B59 

3EMY 

1CB1 

BGBS 

1950 

BIND 

1835 

BINK 

1BD7 

BINKTOL 

184B 

BIXR 

2001 

BKUM 

1D5  9 

BNCK 

1BEO 

BfJK 

1B0D 

BNXV 

ICO  7 

BPCM 

1  CD4 

CBMM 

1CD5 

CETA 

1B7A 

CHECKGRN 

1AE9 

CHKK1  9 

1CZ7 

CIXR 

2002 

CK01 

1DC3 

CK0  15 

1DC9 

CK02 

1DD3 

CK03 

1  DDA 

CKDEMAND 

1A74 

CKKEXT 

1  El  A 

CSTM 

1CDS 

CTAM 

1CD7 

CTMM 

1A02 

CUSC 

3EE8 

D 

1836 

DBUF 

0329 

DELB 

1B97 

DELETE 

1B9F 

DSTA 

10BF 

DWR  M 

1  D41 

ENDF 

1B8F 

ENDP 

182B 

ERRCH 

0046 

EXEC 

0023 

EXIM 

1  DAO 

EXPFLG 

1813 

Fl  CM 

1D62 

Fl.FM 

1CCS 

FILM 

ICC  7 

F2CM 

1D80 

F2FM 

1  CCS 

F2LM 

1  CC9 

F3CM 

1D4B 

F30M 

1CCA 

FAFG 

1329 

FAOF 

1328 

FA  on 

182  7 

FASTBL 

1E80 

FBCM 

1D9  9 

FBND 

1  C67 

FILT 

1A3A 

FILTER 

1B6F 

FINT 

1972 

FLT 

1  A37 

FOUR 

1831 

FPBC 

183B 

FRRM 

1  Dl  0 

FTIX 

1  83D 

FXCM 

1D9  0 

GAPT 

1C25 

GBS 

18F1 

G3SD0NE 

248F 

GBSSTRT 

247C 

G3T 

2401 

GLT1 

183  8 

GLTA 

1837 

G  NA  M 

1D1  8 

GNNM 

1  Dl  C 

GOAM 

1D04 

GPAM 

1  Dl  4 

GPK 

1C43 

GPOK 

1C53 

GRAM 

1CE2 

GRNOPTFL 

1814 

GRNOPTST 

197D 

GRRM 

1CEE 

GRWM 

1CFE 

GRYM 

1CFS 

GRZM 

1D1  F 

GWWM 

1D02 

GYYM 

1CFC 

H1CM 

1CCB 

H1PM 

1CCD 

H2CM 

1CCC 

H2PM 

1CC5 

HA3M 

1CD8 

HISP 

18S4 

HLPM 

1CCE 

HOCM 

ICC  4 

I3P 

1B53 

INBP 

1C1  E 

I  NFG 

1804 

INI 

18AD 

I  MO  NO F 

19S8 

INTON 

196F 

I  NTREDFL 

1824 

INTTIM 

181  1 

JFRM 

0020 

JMPMODE 

197F 

JVELVL 

2000 

K19N0QSG 

182E 

K19N0QSM 

1830 

K19  0UT 

1DEF 

K19QSG 

1S2D 

K19QSM 

182F 

K19T 

182C 

K30F 

180  7 

K3  0V 

1808 

K51F 

180C 

LA  M  J 

0800 

LDFG 

183E 

LETA 

1839 

LHDY 

184F 

LHDYTLFL 

1846 

LHDYTLLN 

1844 

LIGHT 

1815 

LLEN 

183  A 

LNDL 

1B04 

LS2M 

1D7C 

LSH 

1867 

LSHM 

1D70 

LT1 

133C 

LTA 

1840 

LTAMLHDY 

1842 

LTHDY 

185  1 

LVEHFLAG 

184C 

LVEL 

1852 

MAC  NT 

1  El  4 

MAS 

1  E30 

BAXAMBR 

181  A 

MAXGREEN 

1819 

MAXRED 

181B 

MAXREDQ 

IS6A 

MCLK 

1  El  6 

MCNT 

1  El  7 

MDSP 

1865 

MERCHK 

1E07 

MGAP 

1854 

MINCLK 

180A 

MI  NRED 

181C 

MLIM 

1  El  8 

MM 

198A 

MMMODE 

1A0I 

MMSG 

1A1C 

MMSGAM 

182  1 

MMSGFG 

1820 

MODE 

1802 

MODESG 

1A9A 

MODESGBF 

1AA2 

MTA3 

18A8 

MWC 

1DB5 

MWCONTM 

1862 

MWCS 

1860 

MWON 

1861 

NBND 

2400 

NBTEST 

1BAA 

NOKF 

1B4B 

NOKL 

1ADF 

NUMV 

2004 

NVEH 

1B1  7 

02CM 

1CD9 

OLDS 

1833 

ON 

1BC7 

ONOF 

1BB4 

OPTFLG 

1AFE 

OUTPUT 

1992 

P500 

1868 

PATCH  1A 

1999 

PATCH1B 

199B 

PNTW 

0BC8 

PONM 

1CDA 

PSF 

180D 

Q 

1803 

QHMAX 

1  El  C 

QMMSG 

184D 

QSGMM 

183F 

R7CHK 

1 9  IB 

R7TEXT 

193C 

R7T0G 

1869 

R7T0GP 

192D 

RCLK 

1E03 

RCLR 

186B 

RCNT 

1E04 

REDFLAG 

1853 

REINIT 

18C5 

RGAP 

1855 

RGAPTOL 

184A 

RGPTOLFL 

1849 

RGPTOLLN 

1848 

RLIM 

1  E05 

RLNBND 

0836 

RLTQUE 

0048 

RMPCT 

1  E01 

RMPL 

184E 

RMPS 

1E2F 

RSCLR 

1903 

RTALCR 

1B6C 

RTFILT 

1A41 

RTFILTER 

1395 

RTLD 

1S4D 

RTMWC 

1DE4 

RTNF 

1BD4 

RTSS 

IDB2 

SBUF 

1X8 

SCAST 

1914 

SCLK 

1905 

SCNT 

1906 

SCNTO 

1909 

SCOVR 

190C 

SEC  4 

1832 

SETAM3ER 

1AF8 

SETGREEN 

1A81 

SETMM 

19FB 

SETRED 

1A4D 

SETSM 

199C 

SG 

1A07 

SGMINRED 

181  D 

181 


UF    CODE    TO    PRINT   I  NI T   CONDITION    #48 
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SGMMBD 

SI1  M 

SMANDSG 

SP  DI V 

SS02 

STATER  ED 

SVL 

TFT  M 

TKRUBFR 

TIMEGRN 

TNMSCK 

TRSM 

TSR6A 

TTA 

TVL 

TXPM 

UF3  56 

UFEDGE 

UFPBL 

UFPRC 

UFTDB 

UFVNOWX 

VGRAM 

VWAITFLG 

VWCNT 

WRK 

PAS? 


180F 

1CD2 

1A43 

04E0 

I  DAB 

1A63 

1C73 

1CCF 

1A53 

1816 

180B 

1CD1 

1  E29 

1841 

2003 

1CDD 

1  E3A 

1  E97 

2  0CE 
1F52 
1  E35 
1  E37 
1866 
1825 
1930 
1  E31 


SGMMFG 

SIXR 

SMMODE 

SPMUL 

SS03 

STPM 

TATM 

THDY 

TIM1 

TIMER  EI) 

TP3M 

TSGMM 

TSR6B 

TTAPTHDY 

TWRED 

TZPM 

UF844  ' 

UFFAST 

UFPLA 

UFRET 

UFTMP 

VBAR 

VLNGTH 

VWAITIME 

VWLIM 

XLTE 


1823 
183  4 
19A6 
0490 
1DB0 
1C9  9 
1D53 
1850 
IDEE 
1818 
1CDE 
19C9 
1E2A 
1843 
19F0 
1CDF 
1E38 
1E5A 
20CD 
1CAF 
1  E32 
1806 
185F 
182  6 
1931 
1CAD 


SGMMT 

SLIM 

SMSGBD 

SPSN 

SSCK 

STSG 

TDCM 

THDYTLFL 

TIME 

TLTM 

TR3DM 

TSR3 

TSR7 

TVB 

TX 

UF1 573 

UFACC 

UFMMMODE 

UFPRA 

UFSLOW 

UFTSL 

VBVL 

VMRG 

VWAITING 

WREDFLAG 

XZNM 


1822 
1907 
180E 
1863 
1DA3 
1A29 
1CDB 
1847 
002  1 
1CD0 
1E2.B 
1  E28 
1E2E 
1C78 
185B 
1E39 
1E68 
1E3C 
1F4  8 
1E76 
1E34 
185C 
1805 
1A7E 
181  E 
1CE0 


SGMODE 

SM 

SPAR 

SS01 

SSFLAG 

SVEL 

TETA 

THDYTLLN 

TIMEAMBR 

TMTM 

TR4DM 

TSR4 

TT1 

TVEL 

TXCM 

UF2  884 

UFA T MP 

UFPAM 

UFPRB 

UFTAE 

UFVNOW 

VEH1 

VMRGTBL 

VWCLK 

WREDTIME 

ZERO 


19BA 
19BI 
134F 
1DA9 
1810 
185  7 
185  8 
1845 
1817 
185  6 
1  E2D 
1  E2C 
185  9 
185A 
1CDC 
1  E3B 
1E55 
20CC 
1  F4D 
1  E33 
1E36 
185D 
1S6C 
192F 
181  F 
185E 
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VELOCITY  AND  VOLUME  SUBPROGRAM 

The  basis  for  velocity  determinations  and  volume  computations 
were  distributed  from  single  sensors  to  groups.  For  velocity,  sensors 
Fl,  F2,  F3  are  used  and  the  "best"  two  of  three  are  used  for  the  final 
velocity  determination.  A  ringbuffer  stores  64  velocities  for  each 
sensor  and  keeps  a  running  average.  The  ringbuffer  is  initialized  by 
setting  the  current  entry  to  0.  When  the  value  is  discovered,  the 
ringbuffer  program  uses  the  updated  velocity  that  has  been  passed  to 
initialize  the  entire  ring  and  set  a  velocity  value.  The  normal  up- 
date is  to  pass  a  velocity  to  the  ringbuffer  program  which  replaces 
the  oldest  entry  in  the  ring  and  adjusts  the  velocity  average  accor- 
dingly* 

The  volume  determination  uses  a  3  minute  sum  on  F1A,  F2A,  F3A, 
Rl,  R2,  R3,  then  selects  the  "best"  two  of  three  from  the  F1A,  F2A, 
F3A  group  and  the  "best"  two  of  three  from  the  Rl,  R2,  R3  group.  The 
two  volumes  are  averaged  and  become  the  "last"  3-minute  volume. 


Highway  Vehicle  Subprogram  no  longer  is  used  to  pass  information 
to  Ye loci ty  and  Volume. 
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(^      GBWI       J 

__ cr 

FORMER 
INITIALIZATION 

L_z 


ADDED 
INITIALIZATION! 


r 


EXIT 


"I 


Q 


FORMER 
INITIALIZATION 


V 


OLDW 

K41W 
K42W 
K43W 
K44W 
BEGV 


D 


-  0 


(    EXIT    J 


ADDED        ^\ 
^INITIALIZATION;/ 


SENSOR  ACTIVATIONS, 

COUNTS. 

VELOCITIES 

0 


r 


EXIT 


3 
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MAIN 

PROCESSING 

ENTRY 


(      VELVOL   J 


K30CHK 


INPUT  SENSOR 
INFORMATION 

SENSOR  WORDS  1 


COMPUTE 
ACTIVATIONS 


SWA 


INPUT  A   HISTORY 


VELOCITY 
CHECKS 

F_B  SENSORS 
ACTIVATED 

CODE  REPEATED 
FOR:  FIB 

F2B 

F3B 

(only  described 
once) 


NEXT  F_B 
SENSOR  CHECK 
OR  TO  COUNT 
LOGIC  (EVP) 
Xf  ALL  CHECKEDJ 


COMPUTE  TDME\ 
ACROSS  GAUGE 
LENGTH  OF  SENSOR 

PTM  -  F_A 

lACTIVATION  TIME 


COMPUTE  VELOCITY 
GAUGE  LENGTH/  TIME 


0 
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RINGBUFFER 

VELOCITY  TABLE 

TOTAL 

AVERAGE 


VOLUME 
CHECK 


C         EVP    J 


RVOLC 

CHECK  AMD 

COUNT  SENSOR 


D  0   Rl 


RVOLC 

CHECK  AND 

COUNT  SENSOR 


D  1   R2 


FVOLC 

CHECK  AND 

COUNT  SENSOR 


D2 


R3 


FVOLC 

CHECK  AND 

COUNT  SENSOR 

AND  SAVE  ACTIVATION 

TIME 

D  0   FIA 


--0 


186 


©- 


FVOLC 

CHECK  SENSOR 

AND  SAVE 

ACTfVATION  TIME 


D  1   F2A 


FVOLC 

CHECK  SENSOR 

AND  SAVE 

ACTIVATION  TIME 


D  2   F3A 


CHECK  IF 
TIME  TO  PASS 
VOLUME  COUNT 


PCLK 
PCNT 
PLTM 


FORM  DIFFERENCE 

TABLE  FOR  RAMP 

(DIFF) 


RVOL 


SET  PAIR 
NUMBER  OF 

MINIMUM 

DIFFERENCE 

(MVAL) 


SUM  MINIMUM 

DIFFERENCE 

PAIR  (SUMM) 

RVOL 


0 
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DIFF 

COMPUTE  DIFFERENCE 

PAIRS 


FVOL 


MVAL 

MINIMUM 

DIFFERENCE  PAIR 


SUMM 

SUM  MINIMUM 

PAIR 


FVOL 


VELOCITY 
COMPUTATION 
FROM  RINGBUFFER 
OUTPUT 


VOLUME  AVERAGE 


RVOL  PAIR  +  FVOL  PAIR 


SET  UP 

VELOCITY 

TABLE  FOR  COMP 


VELO 


DIFF 
COMPUTE  DIFFERENCE 
PAIRS  FOR  VELOCITY 


VELO 


MVAL 

MINIMUM 

DIFFERENCE  PAIR 


SDmM 
SUM  MINIMUM  PAIR 

VELO 


0 
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VELOCITY 
VELO  PAIR 


SRL  1 


SET  VELOCITY 
AND  NUMV  INDICATOR 


/vbarVvelocity 

Lnumw 


-^- 


MERGE  velocity 

LIMITED  TO 
45  mph 


VMRG 


■66  fps 


MERGE  VELOCITY 
SET  VELOCITY 


VMRG 


VELOCITY 


/"  KIT  TO  \ 
\  FORMER  UF  \ 
V^  MMCODE  J 


(     RVOLC   J 


CHECK  SENSOR 
ACTIVATION 


<^CTIVATED^>- 


UPDATE  COUNT  IN  TABLE 
FOR  INDEX  PARAMETER 


f      EOT   "\ 
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CHECK  IF  TIME 
ACROSS  GAUGE 
LENGTH  IS 
REASONABLE 


ACTIVATED? 


.I 


INCREMENT  COUNT, 
INDEX  TO  COUNT 
IS  PASS  PARAMETER 

FVOL(S)  *-  FVOL  +  1 


SAVE  ACTIVATION  TIME 
FOR  F_A  SENSOR 

LAT(!)  <-  PTM 


r 


EXIT 


X 


TCHK 

IT" 


D 


TIME  IN 
ACOMJLATOR 


TIME  >  MIN? 
•    VELOCITY 
c  <L        5mph 


i> 


^TIME  <  MAX? 

<f  <  velocity;  >. 

5raph  \' 


C  VALID  TTMeTN  /flN 
\         EXIT  J    \^ 


VALID  TIME  A  /UNREASONABLE  TIME 
EXIT  J    V     EXIT 
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'these  three 
subroutines  do 
the  best  2  of  3 
^selection 

folFF.   COMPUTES 
3  DIFFERENCES 
AND  PUTS  THEM  IN 

kTABLE 


DIFF 


I 


D 


FIRST  DIFFERENCE 
TABLE  ■*- 
TABLE  (0)  -  TABLE  (1) 


DF1 


(p. 


'ARAM  CO)  -  PARAM  (1) 


SECOND  DIFFERENCE 
IS  THE  JO  ••  2| 

DF2 


THIRD  DIFFERENCE 
IS  THE  |l  -  2 1 


DF2 


r 


EXIT 


FIND  MINIMUM 

DIFFERENCE 

VALUE 


r 


WAL 


J 


SET  MINIMUM 
DIFFERENCE  TO 
DF1  INDICATOR 


SET  MINIMUM 

IFFERENCE  TO 
1DF2  INDICATOR 

<-       1 


MINIMUM  DIFF7-H 
vF 

1 


SET  MINIMUM 
DIFFERENCE  TO 
DF3  INDICATOR 

*-  2 
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USING 
INDICATOR 
FROM  MVAL 
COMPUTE 
-2  OF  5   SUM 


INDICATOR  =  0 
SUM  (0  +  1) 


Iadd  TABLE  (1) 
L ENTRY., 


r 


EXIT 


3 


SETS  K30F     \ 
SAME  AS  FORMER 
PROGRAM      / 


1       K30CHK 
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G3    VELOCITY  AND    VOL'UME  *I  PA3E         1 

1  '    33    VELOCITY  A  WD    VOLUME      #1 

2  *      VERSION   PREPARED    7-21-74 

3  *      MODIFIED    5-17-77 

4  *      Q    BASED    ON  TWO    OF    THREE    (Fl,     F2 ,     F3)    PLUS    TWO 

5  *  OF  THREE  (R  1  ,    R2,    R3) 

6  * 

7  * 

9  ORIG  X'2000' 
10    * 

180A  11    WINGLK  EQU  XMSOA*         ONE   MINUTE   CLOCK 

1303  12    TMSCK  EQU  X '  1  SOB '         10   MSEC    CLOCK 

1  liJ3           13   Q  EQU  X'  1303' 
0490           14    SPMUL  EQU  X'490' 
04Z0            15    SPDIV  EQU  X'4E0' 

1 306  16    VBAR  EQU  X' 1306' 
1305           17    VMHG  EQU  X'1805' 

1307  IS    K30F  EQU  X'1807'         K30    FLAG    (Fl    IN    TAMPA) 
1303           19    K30V  EQU  X'lEOS*         VEL    OF   LAST    VEH   ACROSS    Fl 

20  * 

21  * 

22  * 

23C9  23   RN33FR  EQU  X'23C9'  RING   BUFFER   ROUTINE 

002  1           24    TIME  EQU  X'0021*  .002   SEC    CLOCK 
0060          25    Fl  3L  EQU  X'0060*             GAUGE   LENGTH 
0070           26    F2GL  EQU  X'0070" 

0020  27    F5GL  EQU  X'0080' 

3EE3  28    CUSC  EQU  X'3EES'  CHECK   SECOND    COUNT 

29  * 

30  * 

2000  L  01 C  31    JVELVL  JMP  VELVOL        MAIN   ENTRY   POINT    FOR    GBVV 

2001  0000  32   BIXR  D  0        BEGINNING    INDEX   TO    VELOCITY   TABLE 

2002  0000  33    CIXR  D  0        CURRENT   INDEX   TO    VELOCITY    TABLE 

2003  0000  34    TVL  D  0         TOTAL    3    MINUTE    VELOCITY 

2004  0000  35    NUMV  D  0        NUMBER    OF    VEHICLES    OVER    3    MINUTES 

2005  0000  36  OVEL  D  0        OVERTIME    VELOCITY   SUM 

2006  0000  37    MINTIM  D  0        CURRENT   MINUTE    TIME 

2007  0000  38   SECTIM  D  0        CURRENT   SECOND    TIME 

2008  0000  39    OLDW  D  0        OLD   STATUS    WORD 

2009  0000  40    STOf  D  0         VOLUME   SUBTOTAL 

200A    0000  41    K41W  D  0        CURRENT  STATE    OF   FO-A 

200B    0000  42    K42W  D  0        CURRENT  STATE    OF    FO-C 

200C    0000  43    K43W  D  0        CURRENT  STATE    OF   FO-E 

200D    0000  44    K44W  D  0        CURRENT   STATE    OF   SPARE 

200E   0400  45    K4lA  D  X'0400'         MASK    FOR    FO-A 

200F    0000  46    K42A  D  X'OOOO'         MASK   FOR    FO-C 

2010  0000  47    K43A  D  X'OOOO'        MASK   FOR    FO-E 

2011  0000  48    K44A  D  X'OOOO'        MASK   FOR    SPARE 

2012  49    VOLT  RES  4        STORAGE    FOR    VOL    TOTAL 

2016  0000  50   NEWW  D  0        NEW   STATUS    WORD 

2017  0000  51    BEGV  D  0        BEGIN   PTR    FOR    TABLE 

2018  0003  52    ENDV  D  3         E\'P   POINTER    FOR    TABLE 

2019  0000           53    TOTE  D  0        CURRENT    VOL    TOTAL 
201A    0000          54   CLOK  D  0         1    MINUTE   CLOCK 

55 
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19VELV0L 


PAG 


2013  0000 
201C  5010 
2JI D  216F 


56  '    GBVELVOL      #2 

57  * 

58  *    MAIN   ROUTINE    ENTRY    POINT 

53    v 


60 

61 
62 
63 
64 
65 
6  6 


VELVOL 


SUBR 

JSX         K50CHK 


CHECK    FORMER    FLAG 


*  SENSOR    A    ACTIVATED --SAVE   TIME,    COUNT    IT 

*  SENSOR   3    ACTIVATED—COMPUTE    VELOCITY 

*  SENSOR    I  NPUT 


201  7 
2  02  0 
2021 
2022 
2023 


2024 
2025 

2026 
2027 
2023 
2025 
202A 
2023 
202C 
2  02D 


02  7  6 
7188 
02  7  5 
71  89 
02F3 
7  ISA 


32  64 
004  0 
2026 

393B 
0120 
ESS  8 
798E 
8933 
79  83 
05O1 
102  5 


202E  3383 
202F  802  1 
2030  7187 


63 
6 'J 
70 
71 
72 
73 
74 
75 
76 
77 
7  8 
79 
80 
81 
82 
83 
84 
S5 
86 
87 
83 
89 
90 
91 
92 
93 


DIN 

15,6      SENSOR 

STW 

SWI 

DIN 

15,5      'wORD  2 

STW 

SW1  +  1 

DIN 

15,5      WORD   3 

STW 

SWI+2 

!ORD    1 


*    DETERMI  NE  ACTI  VATIONS 


LDX  =2 

SLM 

DTALP  EQLI  S 

LDW    *  SWH 
I  N  J 

AND   *  SWI 

STW    *  SWA 

LDW    *  SWI 

STW   *  SWH 

DXS  1 

J  MP  DTALP 

* 

*   AND   PRESENT    TIME 

SMB  TIME 

LDW  TIME 

STW  PTM 


HISTORY,    LAST    INPUTS 

WITH   PRESENT    INPUTS 

GIVES    ACTIVATIONS    THIS    TIME 

PRESENT    INPUT 

BECOMES    HISTORY 
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PAGE 


9'o 

* 

97 

*    F 

98 

^ 

2  131 

81  SE 

5  9 

2  032 

0A  1  2 

.0 

2  033 

0820 

1  0  1 

2  034 

1  04  A         ] 

02 

2035 

71A3 

[03 

2036 

8187         ] 

104 

2  0  37 

2197         j 

0  5 

203  7 

214  5 

0  6 

2  039 

1  D4  9 

07 

2  03A 

7  1A2         ] 

.08 

2  03B 

0100 

109 

0081          ] 

iO 

24  r£J 

2  03  E 

00  60         ] 

1  1 

2  03F 

2  1  A2         1 

12 

2  04  0 

13 

2  04  i 

0800 

14 

2  042 

1044         ! 

15 

2  04  3 

1  045         1 

16 

2  04  4 

23C9         1 

17 

2  04  3 

2  1  A  4         1 

18 

2  04  -3 

0000         1 

19 

VI  I 

2  04  7 

0D00         1 

2  0 

VI  T 

2  04  8 

0000         1 

21 

VIA 

2  04  9         1 

22 

Fl  E 

2  04  9 

3 1  A  3         1 

2  3 

24 

SC 

204A 

25 

F2M 

2  04  A 

0A  1  2         ] 

2  6 

2  04B 

0320         1 

27 

2  04  C 

1062         ] 

2  8 

2  04D 

71A3         1 

29 

2  04E 

8187         J 

30 

204  F 

3198         1 

51 

2050 

2  1-4  5         1 

32 

2051 

1061     .     1 

33 

2  052 

71A2         1 

3^ 

2053 

0100 

35 

2  05  4 

00  81 

136 

S   2055 

24  E0 

2056 

0070 

137 

2057 

21A2 

38 

2058 

39 

2059 

0800 

140 

205A 

1  J5C 

141 

2053 

1061    ■ 

142 

205C 

23C9 

143 

205D 

21  E4 

[44 

205E 

0000 

145 

V2I 

205F 

0000 

146 

V2T 

2060 

0000 

147 

V2A 

2061 

148 

F2E 

2061 

31A3 

149 

95    '    G3VELV0L        #3 
■f- 

SENSORS    FOR    VELOCITY 

S  WA 

2         FIB 

ACT1  VATED? 
F2M  NO,    ;  J  EXT   SENSOR    CHECK 

P-TK        CALCULATE    TIME 

LI  ACROSS    GAUGE   LENGTH 

TCHK      IS    IT  REASONABLE? 

Fl  E        NOPE,    IGNORE 

DELTA      YES,    GAUGE   LENGTH    /    DELTA    TI  Mi 


LDw 

ELL 

S  A  M 

J  MP 

S  TW 

L  DW 

SUB 

JSX 

J  MP 

S  TV/ 

CLR 

SPD1  V 

RES 

SAZ 

J  MP 

JM? 

JSX 

D 

D 

D 

D 

ECU 

LDW 


Fl  GL         Fl     GAUGE 

U  EL  T  H 

1      DI VISION   REMAINDER 

IF    OVER  FLOW --IN  VALID 
$+2        HAVE  SFFED    IN    FPS 
Fl  E 
RNGBFR 
VT1 

0  1 NDEX    TO    VEL    TAB 

0  TOTAL    OF    64    VEL'S 

o        average  vel 
$ 

SAV 


F2B 


EQU 

43 

SLL 

2 

SAM 

J  MP 

F3M 

STW 

SAV 

LDW 

PTti 

SUB 

L2 

JSX 

TCHK 

J  MP 

F2E 

STW 

DELTM 

CLR 

SPDI  V 

D 

F2GL 

Li 

DELTM 

RES 

1 

SAZ 

J  MP 

$+2 

J  MP 

F2E 

JSX 

RNGBFR 

D 

VT2 

D 

0 

D 

0 

D 

0 

EQU 

$ 

LDW 

SAV 

195 


G3VELV0L        #3  PAGE 

1  30 


G3VELV0L        #4  PAGE 

151  '  G3VELV0L        #4 

152  * 

153  *  CONTINUE   SENSOR    CHECK    FOR    VELOCITY 

154  *  COMMENTS    FOR    THIRD   SECTION    PARALLEL    THOSE 

155  *  FOR    THE   FIRST   SECTION    FOR    FIB. 

156  * 
2062         157  F3M 

2052    0A12  155  SLL        2  F3B 

2063    0820  159 

2054    1078  160 

2065  8187  161 

2066  B199  152 

2067  2145  163 
2063    1073  164 

2069  71A2  165 
206A  0100  166 
2063  0081  167 
206C  24E0 
206D  0080  168 
206E  21A2  169 
206F  170 

2070  0800  171 

2071  1073  172 

2072  1078  173 

2073  23C9  174 

2074  2224  175 

2075  0000  175    V3I 

2076  0000  177    V3T 

2077  0000  178   V3A 

179 


EQU 

$ 

SLL 

2 

SAM 

J  MP 

EVP 

LDW 

PTM 

SUB 

L3 

JSX 

TCHK 

J  MP 

EVP 

STW 

DELTM 

CLR 

SPDIV 

D 

F3GL 

D 

DELTM 

RES 

1 

SAZ 

J  MP 

$+2 

J  MP 

EVP 

JSX 

RNGBFR 

D 

VT3 

D 

0 

D 

0 

D 

0 

196 


GBVE 

:lvol 

#5 

180 

t 

GE 

WELVOL        # 

5 

181 

* 

182 

* 

s: 

SCOND   CHECK 

ACTI  VAT 

183 

* 

2073 

184 

V 

VP 

EQU 

$ 

2073 

518r 

185 

LDW 

SWA+1 

RAMP,    COUNT    0 

2079 

0A  1  A 

136 

SLL 

4 

207A 

212A 

187 

JSX 

R  VOLC 

2073 

3300 

188 

D 

0 

207C 

0A13 

189 

SLL 

5 

2  07D 

212A 

190 

JSX 

RVOLC 

207E 

0001 

191 

D 

1 

207F 

3190 

192 

LDW 

SWA +2 

2  080 

OA  43 

193 

SRC 

3 

20S1 

212A 

194 

JSX 

RVOLC 

2032 

0002 

195 
196 

* 

D 

2 

2033 

818E 

197 

LDW 

SWA 

FREEWAY,    COUNT   A 

2084 

0A13 

1  9  B 

SLL 

3 

ACTIVATION    TIME 

2035 

2137 

199 

JSX 

FVOLC 

2086 

0000 

200 

D 

0 

2037 

0A12 

201 

SLL 

2 

2038 

2137 

2  02 

JSX 

FVOLC 

2089 

0001 

203 

D 

1 

2  08A 

0A12 

204 

SLL 

2 

2  08B 

2137 

2  05 

JSX 

FVOLC 

208C 

0002 

206 
207 

D 

2 

PAGE 


197 


GBVELVOL         <t£  PAGE 


203 

t 

GBVELVOL 

#6 

209 

* 

210 

* 

VOLUME 

co  mp  in    i 

21  1 

* 

212 

* 

213 

* 

CHECK 

I F    TIME     i 

PASS    VOLUME 

214 

* 

208D 

OOSF 

215 

CUSC 

2031 

26  ZS 

203F 

0000 

216 

PCLK 

D 

0 

2090 

3333 

217 

PCNT 

D 

0 

2031 

003  4 

213 

PLIM 

D 

180 

3    MI  MUTES 

2  092 

1094 

219 

J  MP 

$+2 

2093 

1  0A9 

220 
221 

5je 

J  MP 

fjCP 

222 

=K 

VOLUME 

AVERAGE 

223 

* 

2094 

21  4D 

224 

JSX 

DIFF 

VOLUME   AVERAGE 

2095 

2191 

225 

D 

R  VOL 

R  A  MP 

2095 

2161 

226 

JSX 

MVAL 

2  09  7 

2173 

227 

JSX 

SUMM 

2  09  3 

2191 

223 

D 

R  VOL 

2099 

71  A3 

229 

STW 

SAV 

2  09  A 

214D 

230 

JSX 

DIFF 

VOLUME    AVERAGE 

2093 

2194 

231 

D 

FVOL 

FREEWAY 

203C 

2151 

2  32 

JSX 

MVAL 

209D 

217S 

233 

JSX 

SUMM 

2  09  I 

2194 

234 

D 

FVOL 

2  09  F 

Al  A3 

255 
236" 

'* 

ADD 

SA  V 

AMD   TOGETHER    TH 
YOU   LITTLE    VOL 

20A0 

0A01 

237 

SRL 

1 

2  0A1 

0035 

233 

SMB 

rf 

2  0A2 

7003 

239 

STW 

G 

2  0A3 

0100 

240 

CLR 

2  OA  A 

3255 

241 

LDX 

=  5" 

2  0A  5 

0040 

242 

SLM 

20A6 

243 

CLV: 

EQU 

$ 

2  0AS 

7991 

244 

STW 

*   RVOL 

20A7 

0501 

245 

DXS 

1 

2  0AS 

10A6 

246 

247 

* 

J  MP 

CLVO 

20A9 

248 

NCP 

EQU 

$ 

243 

* 

250 

♦  VELOCITY  AVERAGE 

251 

* 

20A9 

3048 

252 

LDW 

VIA 

20AA 

719A 

253 

STW 

VI 

20A3 

80S0 

254 

LDW 

V2A 

20AC 

719B 

255 

STW 

V2 

2  0AD 

8077 

256 

LDW 

V3A 

20AE 

719C 

257 

STW 

V3 

20AF 

214D 

258 

JSX 

DIFF 

2030 

219A 

259 

D 

VELO 

2031 

2161 

260 

JSX 

MVAL 

2032 

2178 

261 

JSX 

SUMM 

2033 

219A 

2  62 

D 

VELC 

2  OB  4 

0A01 

263 

SRL 

1 

198 


GBVE 

:lvol 

2  OB  5 

0086 

264 

2  03  6 

7006 

265 

2  OB  7 

7004 

266 

2038 

F2  66 

267 

20B9 

0390 

268 

20BA 

8266 

2  69 

203B 

00  86 

270 

20BC 

7005 

271 

20BD 

I  GDI 

2  72 
273 
2  7'4 
275 

2  0BE 

276 
2  77 

^6 


PAG 


SMB 

VBAR 

STW 

VBAR 

STW 

NUMV 

C  MW 

=  66 

SLE 

LDW 

=  66 

SMB 

VMRG 

STW 

VMRG 

J  MP 

MM  CO 

RES 


MOVE  BACK    TO   GBS 
MAX   GB    SPEED    (45    1<}?Y\) 


VMRG       NO,    SET   G3    VEL    AT    MERGE    PT. 
GO   DO    UF    STUFF 


A     2  0^  >i>     "% 


GB VEL VOL 

273 

i 

279 

* 

2  30 

* 

281 

* 

20C3 

0000 

20C4 

60C3 

2  82 

20C5 

0100 

283 

20C6 

21  OF 

284 

20C7 

21  19 

285 

20C8 

90C3 

286 

2  0C9 

2300 

237 

* 

233 

* 

2  89 

* 

2  OCA 

290 
291 

41 


GBVELVOL 


PAG 


#7 


I  INITIALIZATION   ROUTIN! 


GBVVI 


CLR 
JSX 
JSX 
EXIT 


OLDINIT      FORMER    INITIALIZATION 
CI  NIT        ADDED    INITIALIZATION 
GB  VVI 


X'20CC '-$ 


199 


GDVH 

LVOL-- 

■    LIF   MM 

CODE 

#S 

292 

'    33VEL 

.VOL--    UF    KM    CODE 

23  3 

* 

20CC 

0000 

294 

LI  FP  AM 

D 

0 

2XD 

0000 

295 

UFPLA 

D 

0 

20CZ 

0333 

296 

UFPBL 

D 

3000         2 

2  0CF 

JJ03 

297 

UFVMRG 

D 

0 

20DJ 

002  C 

293 
299 

UF44 
* 

D 

44 

20D1 

0056 

300 

MMCODE 

SMB 

VMRG 

3005 

501 

LDW 

VWRG 

20D3 

FOCF 

3  02 

CMti 

UFVMRG 

20D4 

08  7  0 

303 

SNE 

2  3D5 

ions 

304 

J  MP 

OUTCODE 

20DS 

70CF 

305 

STW 

UFVt'iRG 

20D7 

30D0 

306 

SUB 

UF44 

20DS 

3130- 

307 

CAX 

20DS 

33h3 

308 

SLM 

2  0  DA 

S3E0 

309 

LDW   * 

PAMTEL 

20DS 

70CC 

310 

STW 

UFPA  M 

2  0  DC 

S2F7 

31  1 

LDW    * 

PLATDL 

20DD 

70CD 

312 

STW 

UFPLA 

2001 

5013 

313 

OUTCODt 

:     LDX 

VELVOL-1 

20DF 

2800 

314 

JSX    * 

0 

20Z0 

13  3F 

315 

PAMT3L 

DATA 

6591 

20Z1 

1  8i3 

316 

DATA 

6280 

20Z2 

175A 

517 

DA  TA 

5378 

20Z3 

1S3S 

31  8 

DATA 

5686 

20E4 

1513 

319 

DATA 

5403 

2  0E5 

i  4  J^J 

320 

DATA 

5128 

20Z6 

12FC 

32  1 

DATA 

4860 

20Z7 

1  1  F3 

322 

DATA 

4600 

20ES 

10FA 

323 

DATA 

4545 

2  0£9 

1003 

324 

DATA 

4099 

20EA 

0F12 

325 

DATA 

3858 

2  0E8 

0Z27 

326 

DATA 

5625 

20EC 

0D41 

327 

DATA 

5333 

2  0ZD 

OCSO 

328 

DA  TA 

5168 

20ZE 

08  84 

329 

DATA 

2948 

2  0EF 

OAAD 

330 

DATA 

2733 

20F0 

09  DA 

331 

DATA 

2522 

20F1 

09  OC 

332 

DATA 

2516 

2  0F2 

0841 

333 

DATA 

21  13 

20F3 

077A 

334 

DATA 

1914 

20F4 

06B7 

335 

DATA 

1719 

20F5 

05  FS 

336 

DATA 

1528 

20FS 

05  3A 

337 

DATA 

1338 

20F7 

0000 

338 

PLATDL 

DATA 

0 

20F3 

00A7 

339 

DATA 

167 

2  0F9 

014D 

340 

DATA 

353 

20FA 

01  F4 

341 

DATA 

500 

20F3 

029B 

342 

DA  TA 

667 

20FC 

0341 

343 

DATA 

833 

20FD 

03  E3 

344 

DATA 

1000 

20FE 

048F 

345 

DATA 

1167 

20FF 

0535 

346 

DATA 

1533 

2100 

05DC 

347 

DA  TA 

1500 

2101 

0683 

348 

DATA 

1667 

pa: 


10 


#8 


264FT.*500/44FT    PEP    SEC, 
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GBVELVOL"    UF    MM    CODE 


#8 


PAGE       11 


2102 

0729 

34? 

2103 

07D0 

350 

2104 

0377 

351 

2105 

091  D 

352 

210S 

09  C  4 

353 

2107 

OA  63 

354 

2  103 

03  1  1 

355 

2  109 

0BB8 

35G 

2  104 

0C5F 

357 

2103 

0D05 

358 

2  1  OC 

ODAC 

359 

2  1  00 

3£53 

560 
561 

DATA 

1833 

DATA 

2000 

DATA 

2167 

DATA 

2353 

DATA 

2500 

£ATA 

2667 

DATA 

2b'35 

DATA 

5000 

DATA 

3167 

DATA 

5555 

DATA 

5500 

DATA 

3667 

GBVELVOL   COLLECTED   SUBROUTINES      #9 


pa: 


12 


362  '    GBVELVOL    COLLECTED   SUBROUTINES 

553  * 

3  64  *    OLD    INITIALIZATION   ROUTINE 

365  * 


#9 


210Z 

0000 

210F 

61  OE 

366 

01 

.dimit 

SUBR 

2110 

7003 

367 

STW 

OLD'*' 

2111 

700A 

368 

STW 

K  4 1 W 

2112 

700B 

369 

STW 

K42W 

2113 

700C 

370 

S  T.'i 

lteoW 

2  1  1  4 

700D 

371 

STW 

K44W 

2115 

7017 

372 

STW 

BEGV 

2116 

910E 

375 

EXIT 

OLDI  NIT 

21  17 

2800 

374 

* 

375 

* 

ADDED 

I  MI  TIALI  .-  : 

376 

* 

21  13 

0000 

2119 

61  18 

377 

cinj  " 

SUBR 

211 A 

9267 

378 

LDX 

=21 

2  1  IB 

0040 

379 

SLM 

21  1C 

380 

CINLF  : 

ECU 

S 

2UC 

7988 

381 

STW    * 

SV/I 

211  D 

0501 

382 

DXS 

1 

211  E 

1  1  1C 

383 

J  MP 

CINLP1 

21  I  F 

708F 

384 

STW 

PCLK 

2120 

7090 

385 

STW 

PCM 

2121 

9046 

386 

LDX 

VII 

2122 

79A4 

337 

STW    * 

V'fl 

2123 

905E 

388 

LDX 

V2I 

2124 

79  E4 

389 

STW    * 

VT2 

2125 

9075 

390 

LDX 

V5I 

2126 

7A24 

391 

STW    * 

VT3 

2127 

9113 

392 

EXIT 

CI  NIT 

2123 

2300 

393 
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G3VEL VOL   SUBROUTINES    CONT'D        #10  PAGE      13 

394  '    G8VELV0L   SUBROUTINES    CONT'D        #10 

395  * 

396  *  RAMP  VOLUME  COUNT 
39  7  * 

2129  0000 

212A    6129        39S  RVOLC  S  UBR 

2  12B    0820         399  SAM 

212C  2  301         400  JSX    *    1 

212D  71  A3         401  STW        SAV 

212E  9300        402  LDX    *    0 

212F    0040         403  3LM 

2130  399  1         404  LDW  '*   R VOL 
2131'  A2  63        405  .ADD         =1 

2132  7991         406  STW    *'   R  VOL 

2133  81  A3         407  LDW         3A V 

2134  9129         403  EXIT      R VOLC , 1 

2135  2  301 

4  09    *■ 

4  10    *    FREEWAY    VOLUME    COUNT   AMD   LAST   ACTIVATION    TIME 

41  1    * 

2136  0000 

2  137    6136        4  12    FVOLC  SUBR 

2  133    0320      .  413  SAM 

2139    2801        '4  14  JSX    *    1 

213A    71  A3         415  STW         SAV 

213B    9300         416  LDX    *    0 

213C    0040         417  SLM 

21 3D    3994         418  LDW    *    FVOL 

213E  A263         419  ADD      '   =1 

213F    7994         420  STW    *    FVOL 

2  MO    3187         421  LDW         PTM 

214  1    799  7         422  STd    *    LAT 

2142  81A3         423  LDW         SAV 

2143  9  136         424  EXIT      FVOLC ,1 
2  144    2  301 


42  5  * 

426  *    TIME    CHECK    FOR    VELOCITY   RANGE 

42  7  * 

2145         42  8  "TCHK              EQ  U         $ 

21^5    F1A1         429  CMW         Ml  N 

2146  0380         430  SGR 

2147  2  800         4  31  JSX    *    0        BAD 
2  143    Fi  AO         432  CMW         MAX 
2149    0840         433  SLS 

214A    2  800         434  JSX    *    0        DAD 

214B    2801         4  35  JSX    *    1         OK 
43S 
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GBVELVOL   SUBROUTINES    CONT'D      #"11 


PAGE       14 


437  '    GBVELVOL    SUBROUTINES    CONT'D      #11 

438  * 

439  '*    DIFFERENCE    TABLE 

440  * 


2  1  4  C 

0000 

214D 

614C 

441 

214E 

9800 

4  42 

214F 

8800 

443 

2150 

B801 

444 

2151 

0810 

445 

2152 

01  10 

446 

2153 

719D 

447 

2154 

3800 

4  48 

2155 

B302 

449 

2156 

0310 

450 

2157 

01  10 

451 

2158 

719E 

4  52 

2159 

8801 

453 

215A 

B802 

4  54 

215B 

0810 

455 

215C 

0 1  1  0 

4  56 

215D 

719F 

457 

215E 

914C 

458 

2  I  5  F 

2  8  0  1 

459 
4  60 

461 

2  160 

00  00 

21G1 

6160 

4  62 

2162 

92  69 

4  63 

2  1  63 

819D 

4  64 

2  1  64 

Fl  9  2 

4  65 

2165 

0880 

466 

2166 

1  169 

467 

2167 

2 1  9  E 

468 

2162 

2268 

4  69 

2  1  69 

470 

2169 

Fl  9F 

471 

216A 

0840 

4  72 

2  16B 

9264 

4  73 

216C 

014  0 

474 

216D 

9  16  0 

4  75 

21  6E 

2300 

DIFF 


SUBR 

LDX 

LDW 

SUB 

SAP 

CMP 

STW 

LDW 

SUB 

SAP 

CMP 

STW 

LDW 

SUB 

SAP 

CMP 

STW 

EX  I  T 


*  0 

*  0 

*  1 


DF1 

4-    0 
*    2 


DF2 

*  1 

*  2 


0    -    1 


0-2 


DF3         1 
DIFF, 1 


-     9 


*    MINIMUM    VALUE    I  N    TABLE 


MVAL 


MVL 1 


SUBR 
LDX 
LDW 
CMW 

c*  r*  ^ 

bun 
J  MP 
LDW 
LDX 
EQU 
CMW 
SLS 
LDX 
CXA 
EX  1 1 


DF1 
DF2 


MVL1 0   2 
DF2 

=  1 

DF3 

-2 
MVAL 


-  DF1 

-  DF2 

-  DF3 


76 
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GBVELVOL   SUBROUTINES    CONT'D      #12 


PA' 


15 


477  'GBVELVOL   SUBROUTINES    CONT'D      #12 

478  * 

479  *   REPLACES    K30CF1)    HANDLING    FROM   FORMER    VELVOL 
430   * 

21 6F        481    K30CHK  EQU        5 

216F   0086        4  82  SM3         X3  0F 

2170  8007         4  83  LDW         K3  0F        IF   FLAG    - VE 

2171  0820         4  84  SAM 

2172  2800         435  JSX    *  -0 

2173  0100        436  CLR                  CLEAR    IT 

2174  0086        4  87  SMB         K3  0F 

2175  7007        4  38  S'TW         K5  0F 

2176  2800        489  JSX    *    0 

490 


GBVELVOL   SUBROUTINES    CONT'D      #13 


PAGE   16 


2177 
2173 
2179 
217A 
217E 
217C 
217D 
217E 

217F 
2180 
2181 


2133 


2L84 

2135 
2135 


0000 
6177 
9800 
F2  6S 
0380 
1  17F 
8301 
1184 
217F 
8300 
0840 
1184 
A801 
1  185 
2184 
A  302 
2185 
9177 
2801 


491  ' 

492  * 

493  * 

494  * 


495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 


GBVELVOL    SUBROUTINES    CONT'D      #13 


SUM   TWO    OF    THREE 


sum 


SMLE 


SMEQ 
SMEXT 


S  UB  R 

LDX   * 

0 

c  mw 

=  1 

SGR 

J  MP 

SMLE 

LDW    * 

1 

J  MP 

SMEQ 

EQU 

$ 

LDW   * 

0 

SLS 

JMP 

SMEQ 

ADD    * 

1 

JMP 

SMEXT 

EQU 

$ 

ADD    * 

2 

EQU 

$ 

EXIT 

SUMM, 

204 


G3VE 

LVOL    DATA    STORAGE 

?  14 

P 

513 

'    GBV5 

:lvol  data  stor 

AGE      #14 

514 

t 

515 

* 

316 

* 

21S7 

517 
51S 

P  TM 
* 

RES 

1 

TIME,    .002    SEC 

2133 

519 

S  W I 

RES 

5 

SENSOR    STORAGE 

21  33 

520 

SWH 

R  ES 

3 

21  "Z 

521 
522 

323 

SWA 
* 

RES 

3 

2191 

524 

RWL 

RES 

1 

VOLUME   COUNT   RAMP 

2191 

co  c 

ROi 

RES 

1 

Rl 

2132 

326 

R  02 

RES 

1 

R2 

2135 

527 
52S 

R03 

RES 

1 

R3 

2  1  9  A 

523 

FVOL 

RES 

0 

VOLUME    COUNT    FREEWAY 

2  1  -•  A 

530 

F01 

RES 

1 

F1A 

2135 

531 

F02 

RES 

1 

F2A 

2195 

532 
533 

5  34 

FD3 

R  ES 

1 

F3A 

2137 

535 

LAT 

RES 

0 

LAST  ACTIVATION    TIME 

2137 

5  36 

LI 

RES 

1 

F1A 

2138 

537 

L2 

RES 

1 

F2A 

21  S3 

538 
539 

L3 

X 

RES 

1 

F3A 

219A 

540 

VELO 

R  ES 

0 

VELOCITY 

219A 

541 

VI 

RES 

1 

Fl 

2I9B 

5  42 

V2 

RES 

1 

F2 

213C 

543 
544 
545 

V3 

* 

RES 

1 

F3 

213D 

546 

DIFFR 

RES 

0 

DIFFERENCE   TABLE 

213  D 

547 

DF1 

R  ES 

1 

213  1 

543 

DF2 

RES 

1 

219F 

543 
550 
551 

DF3 

* 

RES 

1 

21A0 

0553 

552 

■MAX 

D 

1563 

5    MPH,     .002    SEC    COUNTS 

21A1 

0035 

553 

MI  N 

D 

55 

128    MPH,    20    FT.    GAUGE 

21A2 

554 

DELTM 

RES 

1 

21A3 

555 
556 

SAV 
* 

RES 

1 

21  A  4 

557 

VT1 

RES 

64 

21E4 

55S 

VT2 

RES 

64 

2224 

559 
560 
561 
5  62 

563 

VT3 

* 
* 

RES 
END 

64 

2254 

0002 

2265 

0005 

2265 

0042 

2257 

0015 

22S3 

0001 

17 
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G3VELV0L    DATA    STORAGE:      #14 
225?    JJOO 


PAGE       13 


NO    ERRORS 


GBVELVOL    DATA    STORAGi 


#14 


pa: 


19 


BEGV 

2017 

BIXR 

2001 

CI  NIT 

2119 

CINLP1 

21  1  C 

CIXR 

2002 

CLOK 

201 A 

CLVO 

20A6 

CUSC 

3EE8 

del  r:i 

21A2 

DF1 

219D 

DF2 

219E 

DF3 

219F 

DIFF 

214D 

DIFFR 

219D 

DTALP 

2026 

ENDV 

2018 

ZVP 

2075 

Fl  E 

2049 

F1GL 

006^ 

F2E 

2061 

F2  3L 

0070 

F2I1 

204A 

F3GL 

0080 

F3M 

2062 

FOl 

2194 

F02 

2195 

F03 

2196 

FVOL 

2194 

FVOLC 

2137 

GBVVI 

20C4 

JVELVL 

2000 

K30CHK 

215F 

K30F 

1807 

K3  0V 

180  8 

K41A 

200E 

K41W 

200A 

K42A 

200F 

K42W 

2  003 

K43A 

2010 

K43W 

200C 

K  44A 

201  1 

K44W 

200D 

LI 

2197 

L2 

2198 

L3 

2199 

LAT 

2197 

MAX 

21A0 

MIN 

21A1 

MIMCLK 

1S0A 

MI  M TIM 

2006 

MMCODE 

20D1 

MVAL 

2161 

MVL1  0 

21690 

NCP 

2  0A9 

NEWW 

2016 

NUMV 

2004 

OLDINIT 

210F 

OLDW 

2008 

OUTCODE 

2  ODE 

OVEL 

2005 

PAMT3L 

20E0 

PCLK 

2  03F 

PCNT 

2090 

PLATDL 

20F7 

PLIM 

2091 

PTM 

2187 

Q 

1803 

RNGBFR 

23C9 

ROl 

2191 

R02 

2192 

R03 

2193 

RVOL 

2191 

RVOLC 

212A 

SAV 

21A3 

S  EC  TI  M 

2007 

SMEQ 

2  184 

SMEXT 

2135 

SMLE 

217F 

SPLI  V 

04E0 

SPMUL 

0490 

STOT 

2009 

SUMM 

2173 

SWA 

2  18E 

SWH 

2I8B 

SWI 

2183 

TCHK 

2145 

TIME 

0021 

TNMSCK 

180B 

TOTE 

2019 

TVL 

2003 

UF44 

20D0 

UFPAM 

20CC 

UFPBL 

2  0CE 

UFPLA 

20CD 

UFVMRG 

20CF 

VI 

219A 

VIA 

2048 

VI  I 

2046 

VI  T 

2047 

V2 

2  19B 

V2A 

2  060 

V2I 

205E 

V2T 

205F 

V3 

219C 

V3A 

2077 

V3I 

2075 

V3T 

2076 

VDAR 

1306 

VZLO 

219A 

V EL VOL 

201C 

VMRG 

1805 

VOLT 

2012 

VT1 

21A4 

VT2 

2  1E4 

VT3 

2224 

PAS? 
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RINGBUFFER  SUBROUTINE 

The  subroutine  is  used  by  Velocity  and  Volume  Subprogram  to 
do  the  velocity  averages  at  the  highway  sensors. 

In  the  call  are  the  address  of  the  64 -word  buffer,  the  total 
maintained  for  the  buffer,  the  average  and  the  last  index  value 
used  to  access  table. 

The  entry  point  is  RNGBFR.  First,  store  and  load  instructions 
are  built  to  access  the  table  in  an  indexed-local  mode.  Then  the 
table  entry  is  retrieved  and  checked  for  zero,  indicating  initializa- 
tion. For  buffer  update  BUPDT,  the  difference  between  the  value 
passed  in  the  accumulator  is  computed  and  saved.  Then  the  entry  in 
the  ring  is  replaced  with  the  passed  value,  the  total  adjusted  by  the 
difference,  CHG,  and  the  total  shifted  right  6  (divide  by  64)  to 
give  the' average.  For  initialization,  the  ring  is  filled  with  the 
passed  value,  the  average  set  to  the  value,  and  the  total  is  set 
to  the  value  shifted  left  6  (multiplied  by  64) . 
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(   RNGBFR  ) 

_zzjt — 


SAVE  VELOCITY 

STRIP  LEAVING 

ADDRESS  PART  OF] 

INSTRUCTION 


STW  VEL 
AND  =2047 


BUILD  STW  *  TABLE 

AND  LDW  *  TABLE 

INSTRUCTIONS 


LDW  1  ^  LDW  *  TABLE 
STW  1  +-  STW  *  TABLE 
STW  2 


ENTRY  =  0  IS 

SET  BY  INITIALIZATION 

ROUTINE  AS 

FLAG  SINCE  NO 

VELOCITY  CAN  BE  0 


LOAD  TABLE 
ENTRY 

WITH  LDW 
STUFFED  AT  LDW  1 


SET  INDEX  TO 

MAX  FOR 
:OUNT,  SET  VEIJ 


LDX  IMAX 
LDW  VEL 


COMPUTE 

VELOCITY  -  TABLE  ENTRY 


CMP 

ADD  VEL 
STW  CHG 


REPLACE  VELOCITY 
IN  RING 


TABLE  (INDEX)  VELOCITY 
(INDEX  +  1)  MOD  64 


FILL  64  TABLE 
ENTRIES 


INLP 
JMP  INLP 


NEW  TOTAL  FOR 
VELOCITY 


TOTAL  +  CHG 


SET  AVERAGE 
AND  TOTAL 


AVERAGE  <-  VELOCITY 
TOTAL  «-  VELOCITY 
(SHIFTED  LEFT  6) 


(       EXIT    "N 


NEW  AVERAGE 


(TOTAL  SHIFTED  RIGHT 
V      6} 
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RING  BUFFER     #1 


PAGE        1 


23CB 

23C9 

23CA 

23CB 

23CC 

23C1 

23CE 

23CF 

2390 

2311 

2312 

2393 

2394 

2395 

2306 


0000 
€3Cf 
73FA 
flOO 
E3F5 
C3FI 
7399 
73E« 
A3F6 
7394 
9101 
0040 
0A10 
0800 
I3E2 


1 
2 
3 
4 
5 

7 
f 
9 
10 
11 
12 
13 
14 
15 
1€ 
17 
If 
19 
20 
21 
22 
23 

24 
25 
24 
27 
21 
29 
30 
31 
32 
33 
34 
35 
34 
37 
3f 


RING  BUFFER      #1 

CALL: 
RNGBFR 
(0)  9  A99R    C4-V0R9  BUFFER,   SANE  WORD  PAGE 

AS  RNGBFR 
<1>  9  0»RELATIVE*INBEX  TO  BUFFER 

(2)  RES        1        TOTAL,   €4   V0R9S 

(3)  RES        1        AVERAGE 

(4)  RETURN 

ACCUMULATOR— REPLACEMENT   VALUE 

TO  INITIALIZE— SET  BUFFER   ENTRY  =   0 

BUFFER   FILLE9  WITH  REPLACEMENT  VALUE 

IN  SAME  V0R9  PAGE  AS   VELVOL  9UE 
TO  REQUIRE9  TABLE  LOCALITY. 

ORIB     X923Cf'     ANCHOR   POINT 


RNGBFR 


L9W1 


SUBR 

STV 

LBV  i 

AN9 

OR  I 

STV 

STV 

A99 

STV 

L9X  » 

SLM 

NOP 

SAZ 

J  MP 


VEL 
0 


BUIL9  L9V  *  AN9 


A2047 

STVI 

STV1 

STV2 

A409C 

L9V1 

1        FIRST, 


INSTRUCTION 
A9DRESSING 


STV 
FOR 


LOCAL  TABLE 


SET  IN9EX  SO  VE  CAN 


PICK   UP  TABLE  ENTRY 
SKIP  IF  INITIALIZATION 
BUP9T       OTHERVISE  90  UP9ATE 
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RING  BUFFER      #2 


PAGE 


23D7  93F9 
2398  f3FA 
23B9 
23B9  Oh\0 
23BA  0501 
23BB   13B9 

23BC  53CS 
23BB  0050 
23BE  7S03 
23iF  0A16 
23E0  7f02 
23EI    2804 


35 
40 
41 
42 
43 
44 
45 
4€ 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 


RING  BUFFER      #2 
INITIALIZE  RING  BUFFER 


LiX  IHAX       INITIALIZE  WORKS 

•LBV  VEL        TO  REPLACEMENT  VALUE 

INLP            EQU  $ 

STW1             NOP  FILLING  RING 

1XS  1 

J  MP  INLP 
* 

LBX  ^NGBFR-1          THEN  THE  AVERAGE 

SGM 

STW  *   3 

SLL  6       TOTAL  =   64  *  REPLACEMENT 

STV  *  2 

JSX  *   4       RETURN  --  BONE 


RING  BUFFER       #3 


PAGE 


57 

t 

RING 

BUFFER 

i 

#3 

58 

* 

5* 

* 

UPBATI 

€0 

* 

23E2 

€1 

BUPBT 

EQU 

$ 

23E2  0110 

€2 

CMP 

23E3  A3FA 

€3 

ABB 

VEL 

23E4   73E8 

€4 

STW 

CHG 

23E5  83FA 

65 

LBW 

VEL       PUT  REPLACEMENT 

23E6   0A10 

66 

STU 

NOP 

23E7    0401 

67 

IXS 

1        INCREMENT  RING   IN 

23E8 

€8 

CHG 

RES 

1 

23E5   0140 

69 

CXA 

23EA    E3F5 

70 

ANB 

I  MAX      KEEP  MOBULO  64 

23EB  0050 

71 

SGM 

23EC  93CG 

72 

LBX 

RN6BFR-1 

23EB  7801 

73 

STW 

* 

1 

23EE  8802 

74 

LBW 

* 

2 

23EF  A3E8 

75 

ABB 

CHG 

23F0   7802 

76 

STW 

* 

2 

23F1    A3F7 

77 

ABB 

A32     TO  BE  ROUNBEB  AF 

23F2   0A06 

78 

SRL 

6 

23F3   7803 

79 

STW 

* 

3 

23F4  2804 

80 
81 

JSX 

* 

4 

VALUE  IN  RING 


SHIFT 


*****%  \ 
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RIM  BUFFER       #4 


23F5  07FF 
23F6  1000 
23F7  0020 
23F8  7800 
23F9  003F 
23FA 


PAGE 


S2    *   RING 

BUFFER 

#4 

83  * 

84  ♦  BAT  A 

AREA 

85  * 

86  A2047 

• 

2047 

87  A  4096 

B 

4096 

88  A  32 

B 

32 

85   STCI 

STtf  * 

0 

90  I  MAX 

B 

€3 

91    VEL 

RES 

1 

92 

RING 

BUFFER 

#5 

93    ' 

RING 

BUFFER 

94  * 

95  * 

96  * 

97 

ENB 

PA8E 


#5 


NO   ERRORS 


RING  BUFFER        #5 


PAGE 


A2047 

23F5 

A  32 

23F7 

A  4096 

23F6 

BUPDT 

23E2 

CHG 

23E8 

I  MAX 

23F9 

INLP 

23D9 

LBV1 

23B4 

RNGBFR 

23C9 

STV1 

23B9 

STW2 

23E6 

STWI 

23  F8 

VEL 

23FA 

PAS? 
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BAND  TRIM  SUBROUTINE 

Band  Trim  is  called  by  GBUD  to  smooth  the  display  before  letting 
it  go  to  the  field.  The  program  is  modeled  after  a  FORTRAN  simulation 
of  August  15,  1976,  which  was  a  smoothing  algorithm  with  no  band  back-up. 

Entry  is  at  ROUTINE  which  some  mode  checks  are  done.  No  smoothing 
is  done  unless: 

1 .  Mode  is  moving  merge  (MODE  =  3) 

2.  The  time  has  elapsed  since  last  smoothing  to  permit  another 
(ELT  in  units  of  .002  sec), 

3.  And  the  system  is  unmasked  (K51F  system  mask  =  -1  and  PSF 
power  save  mask  =  -1) . 

For  the  system  masked,  a  clear  display  is  sent  and  for  any  mode  other 
than  moving  merge,  nothing  is  done  to  display. 

The  trim  of  bands  starts  at  TRMR,  with  a  comparison  of  the  present 
requested  output  and  what  was  last  output  to  field.  If  they  are  the  same 
no  more  is  done  and  the  display  is  left  to  go  to  field.  An  "exclusive  or" 
function  detects  changes  and  saves  it  in  a  work  buffer,  WB. 

When  band  changes  are  detected  control  passes  to  BNDCHGS.  A  scan  is 
made  across  the  buffer  looking  for  changes  to  process  (WB  contains  changes.) 
The  scan  is  entered  whenever  a  change  has  been  completely  processed  and  the 
end  of  the  display  has  not  been  found.  At  end  of  the  display,  it  goes  to 
COPY  which  moves  the  bands  to  the  field  buffer  (DBUF) . 
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To  determine  the  trimming  necessary  on  a  band  end^  information 
about  the  change  is  necessary: 

1.  The  first  light  (FCHG)  of  the  change  in  the  new  band  (DBUF) , 

2.  The  light  immediately  preceding  change  (BFR)  in  the  history 
or  old  band  (OB) ,  and 

3.  The  light  immediately  following  change  (AFT)  in  the  old 
band  (OB)  . 

The  light  positions  in  the  band  are  set  then  the  status  of  each  light 
is  obtained: 

FCLT,  first  change  light, 

BFLT,  before  light,  and 

AFLT,  after  light. 
If  a  band  has  the  end  of  the  display  as  a  terminuns  then  BFR  or  AFT 
is  set  to  -1  to  indicate  it,  and  LCHG  is  the  length  of  the  change. 

Then  the  change  is  processed  on  a  case  -  by  -  case  basis, 
with  0  for  light  off  and  1  for  light  on: 

BAND  ACTION  INDICATED 
Turn  band  off,  permit 
Trying  to  create  a  band,  not  allowed 
Band  filling  in  a  gap,  allow 
one  light  advance  of  trailing  gap  end 
1     1      0    A  cut-in  has  taken  place,  gap 

creation  allowed 
Oil     Trailing  band  end  back-up,  not  allowed 
0     10     Trailing  band  end  advance,  if  it  is 

greater  than  14  treat  as  cut-in 
otherwise  allow  single  light  advance 
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BFLT 

AFLT 

FCLT 

Non  end  cases 

0 

0 

0 

0 

0 

1 

1 

1 

1 

BFLT   AFLT   FCLT 


BAND  ACTION  INDICATED 


Non  end  cases 
(cont . ) 


End  cases 


BEGIN   END      1 

BEGIN     1     1 
BEGIN     1      0 


BEGIN     0      1 

0    END      1 
0    END      0 


END 


END 


Heading  band  end  advance,  allow 

single  light  advance. 

Heading  band  end  back-up,  allow 

only  for  greater  than  14  which  is 

a  cut-in. 

Turn  whole  band  on,  allow  single 

light  advance 

Trailing  band  end  back-up,  not  allowed 

Trailing  band  end  advance,  if  greater 

than  2  treat  as  cut-in  otherwise 

allow  single  light  advance 

Heading  band  end  back-up,  only 

allow  if  greater  than  2  cut-in 

Trailing  band  end  back-up,  not  allowed 

Trailing  band  end  advance,  if  greater 

than  2  assume  cut-in  otherwise  single 

light  advance 

Heading  band  end  advance,  allow  single 

light  advance 

Heading  band  end  back-up,  if  greater 

than  2  assume  cut-in  otherwise 

not  allowed. 


The  band  change  has  2  actions: 

1.  Single  light  change  of  state  and 

2.  Multiple  light  change  of  state. 

Both  changes  set  a  range  for  the  change  loop  (CHNGRLP)  to  do  then 
branch  to  it. 
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For  either  no  band  change  or  change  completed  the  routine  checks  to  see 
if  a  band  piece  exists  in  the  rest  of  the  word  the  band  change  may  have 
overlapped  into,  then  returns  to  search  for  more  band  changes  or  goes  to 
COPY  to  put  new  band  out.   (NZWD  or  ZWD) . 

See  the  report  text  for  a  detailed  flow  chart  of  this  algorithm. 
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CHANGES  TO  BAND  TRIMMER  SOURCE  CODE 
NOT  APPEARING  ON  ASSEMBLY  LISTING 


The  changes  indicated  below  are  incorporated  into 
the  final  versions  of  the  source  and  binary  paper  tapes  for  the 
BANDTRIM  programs  as  of  April  22,  1977. 

1.)  Replace  source  code  lines  49  and  50  with  5  new  lines: 

SNE 

JMP  MMOQD 

JSX  CLARET    NOT  RIGHT,  CLEAR  HISTORY 

JMP  REXIT     AND  DEPART 

MMOOD    EQU  $ 

2.)  Insert  the  following  statement  after  line  65  of  the  current  code: 

REXIT     EQU    $ 

3.)  Replace  line  80  of  the  current  code  with: 

JSX    CLARET    CLEAR  OLD  HISTORY 
JMP    COPY     RUN  IT  OUT  TO  FIELD 
CLARET    SUBR 

4.)  Replace  line  87  of  the  current  code  with: 

EXIT   CLARET    HISTORY  CLEAR  FINISHED 
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BAND  TRIMMER   #1 


PAGE 


24B9 


24BA 
2433 
243C 
24BD 
24BE 
24BF 
24C9 
24D3 
24D4 
24D5 
24D6 
2407 


1302 

0001 

0002 

0003 

0*329 

0021 

15E3 

03B1 

180C 

130D 


24  B9 
14D9 


0019 
0002 
000F 
0002 


1 

2 
3 
4 
5 
6 
7 

Li 

9 
10 
1  1 
12 
13 
14 
15 
16- 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
3S 
3  7 
38 
39 
40 
41 
42 


CALL: 


PROCE 
THE  FI 
OUTPUT 


EX  T  ER  N A  L   ft  EF  ER  ENC  ES 


'BAWD    TR 

* 

* 

* 
* 

* 
* 
MODE 

C  [Y] 

c  '' 

MM 

D3UF 

TIME 

LITR 

RM 

K51  F 

PSF 


N'DTRM 


I  MMER 


BNDTRM 


SSE5    THE  BANDS 
ELD   ACCORDING    T 
FOR   A  UG    25,     19 


TO  RE   DISPLAYED    TO 
0    FORTRAN   SIMULATIOI 
76. 


EQU 
EQU 
EQU 
EQ  U 

EQU 
EQU 
EQU 
EQU 

EQ  U 
EG!  U 

ORIG 
EQU 
J  MP 


X ' 1 802  ' 

1 

r. 
C 

3 

X'829' 
X*21  ' 
XM5E3' 

V  *    1  £7p    1     » 

A      O  Oi_  1 

X  *  1 800  ' 
X  f 1 80D  ' 


SYSTEM    MODE 


GREEN   BAND    OUTPUT    BUFFER 
SYSTEM   TIME    WORD,     .002    SEC 

BORROW    MASKS    FROM   GBUD 
MASK    FLAG 
POWER    SAVE    MASK 


*2  40  9 


ROUTI  NE 


*    DATA    USED    LOCALLY    TO    PROGRAM 


LST 

ELT 

B  C  U  T 1  M 

1CUTIN 

ECU  TIN 

OB 

WB 

SC 

3FLT 

AFLT 

FCLT 

LCHG 


RES 
r) 

D 

D 

D 

RES 

RES 

RES' 

RES 

RES 

RES 

RES 


c5 


SAVED 

=    .05 

T  UB  ES 

T  UB  ES 

TUBES 

OLD, 

BAND 

SCRA 

LIGH 

LIGH 

FIRS 

LENG 


TIiY 

SEC 

OFF 

OFF 

OFF 

HIS' 

CHA 

TCH 

T  BE 

T   AF 

T   LI 

TH    0 


E 

/.002    SEC,    INTERVAL 
=    CUT-IN  'AT   BEG 
=    CUT-IN    WITHIN 
=    CUT-IN    AT   END 

TORY   GREEN    BAND 

NGES    WORK   AREA 

FORE    CHANGE 
TER    CHANGE 


i T    IN 
BAND 


CHANGE 
CHANGE 
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BANDTRIM    MAIN    PROCESSING      #2 


PAG  E 


43 
44 


'BA 
* 


IDTRIM    MAIN   PROCESSING      #2 


24D3 

24D9 

2  4  DA 

24DB 

24DC 

24DD 

24DE 

24DF 

24E0 

24E1 

24  E2 

24  E  3 

24  E4 

24E5 
24E6 

24E7 
24E8 
24  E9 

24  EA 
24EB 
24  EC 
24  ED 


24EE 

24  EF 

24F0 

24F1 

24F2 

24F3 

24F4 

24  F  5 

24F6 

24F7 

24F3 
24F9 
24  FA 
24FB 
24FC 
24FD 


OOOO 

64  DS 
00S6 
3002 
F5E2 
0360 
14F7 
0080 
302  1 
B4BA 
F4BB 
084  0 
14EE 
24E5 
95E3 
004  0 
2  4E7 
8C3F 
0082 
7829 
0501 
14E7 
94D8 
2300 


0080 

3021 

74BA 

0086 

300C 

0056 

EOOD 

030  0 

14FE 

24F7 

9  5E3 

0040 

0100 

7CBF 

0501 

14FA 

14E5 


2  4FE 
24 FE  0100 
24 FF    7  4D3 


2500   95E3 


45   ROUTINE      SUBR 


46 
47 
4  8 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 

67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
85 
84 
85 
86 

37 

'.'  o> 

89 
90 
91 
92 
9  3 
9  4 
95 
96 
97 


COPY 


NCH! 


SMB 

LDW 
CMW 
SEQ 
J  MP 
SMB 
LDW 
SUB 
CMW 
SLS 
J  MP 
EQU 
LDX 

C  L  vi 

EQU 
LDW 
SMB 
STW 
DXS 
J  MP 
EXI 


MODE      NO    DIDDLING    UNLESS 
MODE  I N    THE  RIGHT    MOOD 

-  [V][YJ 

CLARET    NOT  RIGHT,    DON'T   MESS    WITH    IT 

TIME        SET   SYSTEM   TIME 

TIME 

LSI      -SAVE   TIME    =    ELAPSED    TIME 

EL!        SKIP    IF   ELAPSED    INTERVAL 

TMOUT 

$ 

=9      MOVE   OLDTO    DBUF 

$ 

*  OB 
DB  UF 

*  DBUF 
1 
NCHG 

T      ROUTINE 


* 

*       UPDATE    TIME    ELAPSED,    MODE   MUST  BE    MM 

TMOI 


UT 


CLARET 


EQU 
SMB 
LDW 
S  TW 

C  !VD 

LDW 
SMB 
AND 
SAZ 
J  MP 
EQU 
LDX 
SLM 
CLR 
STW 
DXS 
J  MP 
J  MP 

*      BAND    TRIM 

* 

TR I  MR  EQ  U 

CLR 
S  TW 


Tl 
TI 
LS 

K5 
K5 
P5 
PS 

TK 
S 
=  9 


ME 

ME 

T 

IF 

IF 

F 

F 

I  MR 


SYSTEM   TIME 
TO   SAVED    TIME 

BANDS    MASKED? 
LET'S    FIND    OUT 
INCLUDE   POWER    SAVE    MASK 

THEY   ARE,    CLEAN    OUT    OLD 
NO    MASK,    TRIM  AWAY 


OB 
1 

$-2 
COPY 


CLEAN    DISPLAY    TO    FIELD 


FIRST   XOR    DB 
LDX 


SO      I N1TIALIZE   CHECK 
UF  BAND   AND    OLD   BAND 
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■andt; 


in  p. 


essi:.. 


#; 


2501 

0  04  0 

?;  8 

2502 

99 

25  02 

00S2 

100 

2  5  05 

3E29 

101 

2504 

DC3F 

102 

2505 

7CC9 

105 

2506 

C4D3 

104 

2507 

74D3 

105 

2508 

0501 

106 

2509 

1502 

107 

250A 

84D3 

103 

250B 

0300 

109 

250C 

150F 

1  10 

250D 

94D2 

1  1  1 

250E 

2800 

C  1     V 

—    w   .    . 

Eiu  : 

LDi\  *  23 lf     iff  gfeem  E;;:;_  t cj  3C 

*/  A  u  •       J  lj          i.^LLvi  v.      ...      di  If,      ^  L  i  ■ 

m  *     ft  ci        in«:    li     i.  .;     .,  u . .  r, 

OR I  SC      ACCUMULATE    OVERALL    CHANGE 

STW  SC 

DXS  1 

JMP  XORLP 

LDW  SC         ANY    CHANGES? 

SAZ  NOPE,    DON'T   WASTE    TIME 

J  .  .r  LhLunbb           j  j    i,  u     ire  .'. 

EXIT  ROUTINE 


1  12 
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3ANDTRIM,    CHANGES    TO    PROCESS       wh 

3    "BANDTRIM.    CHANGES    TO    PROCESS      f:3 


pas; 


2  50F 
2  5  3"  0100 
2513  7  522 
2511  J15J 


2512 

2513 
251  ; 
2515 
251  : 
2517 
2513 
2510 
251 A 
2512 

251C 
25!  D 

251  E 


251F 
2520 
2521 

2523 
2524 
2525 
2525 

252? 

^  ^  O  O 


0040 
2  513 
3CC9 
0300 

151  F 

A  5  24 
~5  E5 
033  0 
14E5 
7  522 
251C 
0401 

1513 


251  F 

251  F 
0035 
25E3 
2  4  CO 

0000 
0310 
152A 

A  5  EC 
7522 
151  F 


2  52  A 
252A  5522 
2523  7559 
252 C  A  5E6 
252D   7535 


252E 
252F 
2530 
2531 


7553 
7522 
B5E7 
754A 


2532 

2532    0035 


BANDTRIM, 

14  * 

1  5  DNDCH3S  EQU 

15  CLR 
17  S  T  d 
13  CAX 
13    * 

20  *    LOCATE  A    NONZERO    CHANGE  WORD 

21  *  ' 

22  SLM 

2  3   ZVD  EQU         $ 


CLEAR    LIGHT    NUMBER 
CLNO 

and  set  chance  ii 


25 
25 
27 

2S  ADD 

29  CuW 

30  SLE 
3  1  J  HP 
32  STW 
3  3    I  NCW  EQU 

34  IXS 

35  AD  RES 
3  5  J  MP 
37    * 

35  *  FIND  LIGHT 
39    * 


L  L.)  ri     *     '.v  o 

SAZ 

J  MP 

LDw 


;ham 


WORK  BUFFER 


NO    CHANGE 
NZWD      FOUNT   SOME 

KICK    COUNT   U°    TO    (!EXT   WORD 


CLNO 
=  15 

=  1  44 

COP  v 
CLNO 


OLD  BAND 


DB-UF 


1 

1         LAST   LIGHT   TO   CHANGE 

ZWD 

[AT    CHANGED 


40  NZWD 
4  1  STLZ 
42 


EQU 
EQU 
LITR 


4  3  D  W  3 

4  4    CLNO  RES  1 

45  DO 

45  SAP 

4  7  J, IP 

4  3  L  DW 
49                          ADD 

5  0  STW 
5  1  J  MP 

52  * 

53  *    FOUND    FIRST   CHANGE  BIT 

54  * 
EQU 
LDw 
STW 
ADD 
STW 
STW 
STW 
SUB 
STW 


SKIP    I  F    NO   CHANGE 
CHGD 

CLNO      GO    TO    NEXT   CHANGE    TEST 
=  1 

CLNO 
STLZ 


5  5    CHGD 

55 

57 

58 

59 

60 

61 

62 

63 

64  * 

65  *    GET    END    OF   CHANGE 

66  * 

67  LECHG  EQU         $ 

68  LITR 


FOR    DECISION 

NEED    FIRST    CHANGED 


$ 

CLNO 

FCHG 

=  1 

CON 

AFT 

CLNO 

=  2      AND  BEFORE  AflD   AFTER 

BFR        LIGHTS   IN    OLD  BUFFER 
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T    1 


~       ~       —   w      K. 


*~  "   7   / 

O  /i  |T? 

1 

- "  r" 

j 

2  5  3  3 

1 

7  1     r>  ">  m 

ft     ^^; 

?  <=,  ~  < 

3330 

j 

71 

L1 

1537 

3223 

1 

72 

E  A  2 

P '"  ~  : 

154  4 

1 

7  5 

'  ■  ■'  p 

£539 

2535 

1 

7-i 

2  2a 

253A 

A  5  22 

1 

75 

A    T:  *"'; 

£  ^  OP 

C  5  ~  ~ 

I 

1     VJ 

C  .v.. 

25  3  C 

2  2-'  J 

j 

77 

C  1    d 

i_  j  o  D 

1  5  42 

1 

7  2 

J  MP 

253Z 

f  >£*  c- 

1 

7  c^> 

2  7  V 

253r 

7555 

183 

S  I W 

254  3 

7553 

1 

21 

S  i  2 

O  "  /  ! 

1  ■"  x  o 

1 
1 

S3 

C-  71  LL    I 


=  122 


CL-vO 
L  J  i. 
AFT 


221 


5T5  I 


:nd  of  change     #a 


PAGE 


•  - ,   .     .  ,  r. 

_  H  1 1  u 


—.-.*  L/      Ji'       ^f'h  IyOL 


2542 
2  5  43 


2545 
2546 
2547 
254? 
2549 
254A 
25  4B 
25  4  C 

25  4D 

254E 

25  AF 

2550 

2551 

2552 

2  5  53 

2  5  54  0000 
74D5 
2  55  6 
0  035 
25E3 


2544 
354  ^ 
0310 

150 
00S5 
2  5E3 
2  43F 

0000 
7  4D4 
2  54D 
S553 
0  i  1  0 
1555 
0085 
25E3 
2  4BF 


9 


3 


2556 
S  2557 
2553 
255? 
2  5  5A 
2553 


000  0 
7455 


255C  8553 


255D 
2552 
255F 
2560 

2561 


0810 

5  54A 
B5E6 
7  4D7 


IS  4 

185  * 

I  56  *  Z:^D  OF.   SAND  FOUNL 

187  - 

185 


#^. 


159 
100 
191 
192 
133 

1  94 
195 
156 
197 
195 

199 
200 
201 
202 
205 

2  04 
205 
206 
207 

208 
2  09 
210 
21  1 

212 
213 

214 
215- 
21  6 

21  7 
218 
219 

22  0 
22  1 
222 
22  3 
224 
225 
22  6 
22  7 


•J:i  I  'J  _*  Li  $ 

LDW         =  -j         MARK   I  T 
S  T'a-         A  FT 

*    END    OF    CHANGE,    DETER  HI  \Z   LIGHT   STATES 

ECHO 


BFfi 


AFT 


\  c  TP  Ml 


EQU 

c 

LDW 

SYR 

SAP 

J  HP 

BG5ND 

LITR 

n 

OB 

RES  . 

1 

D 

0 

S  T  W 

BFLT 

EiU 

*v> 

LDw 

AFT 

C"? 

w  rti 

J  MP 

AFT3ND 

LITR 

D 

OB 

R  ES 

1 

D 

0 

5  T  v; 

A  FL  T 

EQU 

$ 

LITR 

D 

DBUF 

R  ES 

1 

D 

0 

STW 

FCLT 

*    NOW    DECIDE  WHAT    TO   DO,    DETERMINE   CHANGE   LENGTH 

LDW  AFT          AFT    =    -1    WHEN    END    OF   DISPLAY 

SAP 

LDW  -160          SET  ACCORDINGLY 

SIB  BFR         COMPUTE   CHANGE   LENGTH 

SUB  =1 

C   T*     [  !     C'  '     '"* 
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BANDTRIM, 

22  8 

229 

230 

231 

232 

233 

234 

235 

236 

2562 

854A 

23  7 

2563 

C553 

238 

2564 

0810 

239 

2565 

1583 

240 

241 
242 

24  3 

2566 

S4D4 

24  4 

2567 

C4D5 

245 

2568 

0810 

246 

2569 

156E 

24  7 

256A 

34DG 

24S 

25  5D 

w  w.  —  u 

249 

256C 

153  A 

250 

25GD 

1  5C3 

251 

256E 

252 

25  6  Z 

Z4D4 

253 

256F 

E4D5 

254 

2573 

0S20 

255 

2571 

1576 

256 

2572 

84DG 

257 

2573 

0810 

253 

2574 

1536 

259 

2575 

15BA 

2  60 

DETER  MI  ME    THE    TRIM      #5 

'•BANDTRIM,    DEI  En  MINE    THE   TRIM      #5 
* 

*  HAVE    THE    NECESSARY    INFO    TO   CHECK    TRI/. 

*  LIGHTS    FRAKING   CHA  KGECB^LT,    AFLT),    03 

*  FIRST   LIGHT    OF   CHA  NGE(FCLT)  ,    D3UF 

*  LENGTH    OF    CHANGE(LCFG) 

*  CHECK    IF   BEGIN    OR    END    INVOLVED 

LDW  BFR 

ORI  AFT 

SAP  SKIP    IF    NEITHER    INCL'JDED 

J  MP         ENDS IN 
* 

*  PROCESS    FOR  NO    ENDS    INCLUDED 


OM 


LDW 
ORI 

O  A  D 
«j  i-i  i 

J  MP 

LDW 
S  A  '•' 
J  MP 
J  MP 


A  N  L 
S  A 
J  MP 
LDv. 
SAP 
J  MP 
J  MP 


EFLT 
AFLT 

OM      (1,1)     (0,1)     (1,0)    CASES 
FCLT       (0,0)    CASE 

"  i   v r  •  j  i  ■■>         /  'i     "i     "i  n      •  •  t  i   i      ""  ,">  ' '  r*. 
>.i.itlij         '«.  J  ,  J  ,  ^  j      1  -.  J.  j_  i_    _/-..«. 

N03CHG       (0,0,1)    NO    DANE    CREATION 

EFLT 
AFLT 

SKI?    IF    (1,1)    CHANGE 
OZM 
FCLT      PRDCESS(1,1)    CHANGE 

SKIP    IF    0 
STCHG 

Ml     TO  I  ■  r 


261 


10    PRGCESS( 1 , 1 , 1) 

honor  cut-in  ci ,  1  ,o) 
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>A-)DT"'ii:i,  continue:  CASES     *6 


PAGE 


257S 
2.5  77 

257E 
2579 
237A 

257.3 
2573 

2  3  7  £ 
2  5  7  F 

2581 
2582 
2583 
25  S4 

2 5  3  5 
2556 
2537 
?"5  *'' 


2533 

2  5SC 
25  3D 
2531 
25b'F 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
259? 
253A 

2533 
259C 
259  D 


2576 

6 "-» u  0 

0820 
1531 

Obi  J 

1533 
24D7 

0340 
i  5BA 
1  53  d 
2581 

84DS 
0810 

1586 
84D7 
F4BD 
33-^0 
153^ 
1  5CE 

BA  ilDIi 


2  52i- 

5  5  <■:  \ 

E553 

031  0 
1  5BS 
354i 
0320 
1  5A3 
3405 

032  J 
159B 
34D5 
0810 
15CD 
54D7 
F4BC 
0330 
15B6 
15BA 
253E 
84D6 
0810 
15BS 


259E  84D7 
259F  F4BC 
25A0  0880 
2  5A1  15C3 
25A2    i53A 


263 

2  64 
265 

267 

263 
270 
271 
2  72 
27o 
2  7-5 

_>  7'-, 

27  S 

211 

2  73 
280 
281 
2  82 
233 
284 
285 
236 
2-7 
23o 


'BANDTRIM,    CONTINUE:    CASES      #6 

*  LEADING    AND    TRAILING    EDGES 

*  (1,0)  and   (0,1)   cases 


02, 


EQU 

l  m 

SAM 

jmp 

LDW 
SAP 

j  :•!? 

L  DW 
SLS 

jr-:? 

J  MP 

ECU 

LDW 
SAP 
J  MP 
LD'v 
C  MW 
SLS 
J  MP 

l  MP 


23  0 

■»;  5 
23  4 
£jj 
296 
237 
•>3  3 
293 
300 
301 
502 
303 
304 
305 
306 
307 
303 
309 
310 
311 
312 
313 
314 
315 
31S 
317 
313 
319 
320 
321 
322 


:nd  CASiS     vi 

'3ANDTRI 

*    3E3I.-J    FIRSJ 


ENDS  I 


3ZM 


EPU 
LDW 
A  NO 
SAP 


LDW 
SAM 
J  MP 
L  DW 
GAM 
J  MP 
LDW 
SAP 
J  MP 
LDW 
CMW 
SGR 
J  MP 
J  MP 

Eau 

L  DW 
SAP 
J  MP 

LDW 

CMW 
SGR 
J  MP 
J  MP 


A  FL  T 

OZ      GO   PROCESS    (1,0) 
FCLT      PROCESS    (0,1) 

NOBCHG      NO  SACK- UP    (0,1,1) 

LCK3       (0,1,0) 

ICUTIN  >=    15      EXTINGUISH 

MLTCHG      ALLOW    CUT-IN 

STCHG        ADVANCE   TRAILING    EDGE 

FCLT        PROCESS    (1,0) 

STCHG      LEADING    EDGE   ADVANCE    (1,0,1) 

LCHG         (1,0,3) 

IC'JTI  N  >  =    15    EXTINGUISH 


MLTCHG 
ii  02  CHG 


ALLOW   CUT-IN 
NO  BACK-UP 


-«7 


BFR        CHECK    WHOLE   BAND 
A  FT 

STCHG      ALL    TURN    0N7--ALL0W    1 
B  VH 

ENDPROC        GO  TO   END    PROCESSING 
AFLT 

BZM        GO    TO    (BEGIN,  0)    PROCESSING 
FCLT      PROCESS    (BEGIN,  1) 

NOBCHG      NO  BACK-UP    (BEGIN, 1,1) 
LCHG       (BEGIN,  1,0) 
BCUTIN        >2   EXTINGUISH 

STCHG         TRAILING    EDGE   ADVANCE 

MLTCHG        HONOR    CUT-IN 

$ 

FCLT        PROCESS    (BEGIN, 0) 

STCHG        SPOOL   IN 

ADVANCE    (BEG  IN,  0,1) 
LCHG         (BEGIN, 0,0) 
BCUTIN  >2   EXTINGUISH 

NOBCHG      NO  BACK-UP 
MLTCHG         HONOR    CUT-IN 
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fr      w 


PA3E       10 


r-  M  n 


325   ,3a;:"t^i;;,   2*: 

32  4    * 

32  5    •<    IMD    CA2E 


*S 


32  0 

yk. 

O   C*    7 

32  7 

2  5  A  3 

r    /  r-   / 

~C    .' 

—  >rt   -i 

0  2  i  J 

x<~,  :- 

25A3 

15AI 

330 

25AS 

w  4  ~  O 

531 

2  5A7 

3210 

332 

25AS 

1  503 

535 

2  5A2 

£4D7 

53  m 

25AA 

r^  t 

55  5 

25AB 

0*20 

3  3  5 

25.,  C 

1  336 

55  7 

1  52  A 

35  J 

2  5AE 

7  t  r 

3  EX 

25AE 

G4DS 

5^0 

25AF 

0810 

5.1 

23E0 

152  2 

542 

2  53  1 

3^27 

5  4  " 

o  c  p  o 

24  22 

5  4  4 

2  5b  3 

1  ■■?  p  i 

545 

2  53  4 

1  5  02 

34  6 

2  53  5 

1  53A 

34  7 

54  2 

p  r-i  p  *•>  ^ 


22  U 

L.      t/     V. 

q  r  p 

LL* 


17' 

i-  -    •'. 

/-i  •  . 
O.'i.v 

•2  oi  r\ 

J  MP 

JK? 
22  u 
LDVii 

C    "    "> 

J  MP 

22 ■■■■ 
CMW 
23fi 
J  21? 


2-  FLT 


<->    pr  n 


)CZ22    C1,EN2) 


FCLT      PROCESS    (0,END 


f.U    -filfr  Ur 


LCHG       (0,ZNP,3) 


(0,e::2,d 


■2    EXTINGUISH 

ST0FG      ADVANCE   TRAILING    EDGE 
r.LTCKG      H0*'22    22T-IX; 

FCLT      P23CESS    (l,ENLO 

STCK-G      LEADING    FnGE    ADVANCE    (lfE\'D,n 
LCHG       (1,ENI>,0) 

EC  UT1  \"         >    2    EXTINGUISH 

.  !L  1  u  ; r .  -j        r.  _  . ,  ~ . .     l-  u  i     i  ;■■ 
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BANDTRIM,    CHANGE   HANDLING    ROUTINE      #9 


PAGE      11 


2  53  6 
2  53  7 
2  53? 

2  53  9 


2  53  A 
2533 
25^C 
2  53  3 
2  53E 


253F 
25C0 

2  5C1 
25C2 
2  5C3 
25C4 

2  j'Z  S 
25C7 
2  503 
25C9 
2  5CA 


2536 
3559 
7  5C2 
75  13 
1  5BF 

253A 
3559 
7  5C2 
A4D7 
3  5Z6 
751  D 

253F 
253F 
0035 
25E3 

243F 

FFFF 
35C2 
F51  3 
034  0 
15C3 
A5E6 
7  5C2 
15BF 

25C3 
25CB 


349 

350 

551 
3  52 
353 
354 
355 
356 
3  57 
553 
359 
360 
361 
3  62 
363 
364 
365 
5  66 
367 
365 
3  69 
370 

571 
572 

375 
5  74 
575 
576 
577 
578 
579 
530 
531 
3  82 
535 
58^ 
585 


'BANDTRIM,  change  handling  routin: 


#9 


*  TWO    CASES    OF    CHANGES: 

*  SWITCH    STATE    OF   FIRST   TUBE    IN    CHANGE 

*  SWITCH    STATE    OF  ALL    TUBES    IN    CHANGE 


STCHG 


* 
MLTCHG 


CHN3R 

CHNGRLP 


_j  o 


CHNGD7ER 

N03CHG 


EQ  U 
LDW 
STW 
STW 
J  MP 

EQU 
LD  a 
S  TW 
ABB 
S  U5 
STW 

EQU 
EQU 
LI  TR 


D 
RES 

LDW 
CMW 
SLS 
J  MP 
ADD 
STW 
J  MP 

EQU 
EQU 


FCHG      SINGLE   LIGHT   CHANGE 

BC         RANGE    OL'E    LIGHT 

AD 

CHNGrt 


FCHG       MULTIPLE   LIGHT    CHANGE 
BC        START    WITH    FIRST    IN    CHANGE 
LCKG         AND    GO    TO    LAST 
=  1 

AD 


OL 
1 

-1 
BC 


CHNGOVER 
=  1 

BC 
CHNGRLP 
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BANDTRIM,    CHE 

386    fB 

387    * 

388    * 

3  89    * 

2  5C3 

0100 

390 

25CC 

0130 

391 

25CD 

8553 

392 

2  5C  E 

0810 

393 

25CF 

14E5 

394 

25D0 

0A7C 

395 

25D1 

0A  54 

396 

2  5D2 

74  D3 

397 

25D3 

0040 

398 

25D4 

8CC9 

399 

25D5 

94D3 

400 

25D6 

0082 

401 

25D7 

E8B1 

4  02 

2  5D3 

0800 

403 

2  5D9 

1  51  F 

404 

25DA 

8553 

405 

25DB 

F5E5 

406 

25DC 

0840 

407 

2  5DD 

14E5 

408 

25DE 

0A04 

409 

25DF 

A  5  £6 

4  10 

25E0 

0130 

411 

2  5  El 

1513 

412 
413. 

25E2 

0003 

25E3 

0009 

2  5E4 

0010 

2  5E5 

0090 

2  5ES 

0001 

25E7 

0002 

25E8 

OOAO 

2  5E9 

FFFF 

CK    FOR    END    OF    CHANGES       #10  PAi 

ANDTRIM,    CHECK    FOR    END    OF   CHANGES      #10 
CHANGE   PROCESSED 


CHECK    FOR    CHANGE   AT   END 


12 


CLR 

CAX 

LDW 

AFT 

SAP 

J  MP 

COPY 

SLC    D 

12 

SLC 

4 

STW 

SC 

SLM 

LDW    * 

WB 

LDX 

SC 

SMS 

r  :i 

AND    * 

RM 

SAZ 

J  MP 

NZWD 

LDW 

AFT 

CMW 

=  144 

SLS 

J  MP 

COPY 

SRL 

4 

ADD 

=  1 

CAX 

J  MP 

ZWD 

END 
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FAULT  MONITOR 

Ihe  changes  to  the  Fault  Monitor  were: 

1.  Changing  the  error  type -outs  on  sensors  to  error  checking 
for  critical  combinations,  taking  the  system  down  if  they 
occur  and  typing  information  messages  every  15  minutes  for 
noncritical  combinations, 

2.  Option  to  suppress  type-outs  through  OCIS  set  flag,  and 

3.  Counts  on  sensors  for  an  hour  and  since  last  re-initialization 
to  be  printed  on  request  through  OCIS  or  on  the  hour  if  type- 
outs  are  not  suppressed  then  clear  hour  counts. 

In  initialization,  the  clock  for  each  of  the  timed  checks  and  type- 
outs  is  reset,  fault  tables  cleared  and  counts  zeroed.  All  the  message 
type-outs  which  were  of  fixed  length  and  stored  in  descending  order  are  now 
stored  as  string  with  markers  ' : '  to  indicate  a  break  point  (all  messages 
are  printed  in  terms  of  how  many  break  points  to  scan  over,  without  printing 
break  characters;  '/'  indicates  carriage  return,  line  feed  when  imbedded  in 
a  type-out) .  This  facilitates  any  addition  of  messages  or  modifications  of 
present  ones.  The  byte  address  of  the  message  is  passed  to  the  print  routine 
which  has  the  former  PRRG  entry  for  a  time -stamped  type -out  and  a  new  entry 
point,  TYPO,  for  a  line  without  a  time -stamp. 

At  PRRG,  the  message  address  is  saved  and  the  former  time  conversion 
routine  used.  Calls  are  issued  to  TYPO  to  output  the  data;  it  uses  the 
same  code  that  PRRG  formerly  used  to  output  a  single  character  of  data  with 
the  added  checks  for  ':'  and  '/'•  Whenever  a  break,  ':',  is  encountered 
(PNC,  pick  up  next  character),  BCNT  is  decremented  and  when  it  goes  negative, 
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the  print  is  terminated.  Whenever  a  '/'  is  encountered,  the  end  of  line 
sequence  is  output,  as  are  2  carriage  returns  and  a  line  feed.  OUTCHAR 
sets  a  flag  and  issues  the  output  data  command. 

Clear  display,  CDISP,  was  changed  to  put  out  the  data  to  the  SCU 
with  successive  instructions  instead  of  loop  which  built  the  DOT  instruction 
each  time. 

At  SM0Z,  the  former  control  program  which  checked  the  sensors  based  on 
information  provided  by  Highway  Vehicle  Processor  was  removed  and  replaced 
by  calls  to: 

1 .  Processor  sensor  information  into  tables  (SNIP) , 

2 .  Check  for  critical  sensor  faults  (CFAULT) ,  and 

3 .  Check  for  noncritical  sensor  faults  (NCFAULT) . 

Then  the  sensor  count  flag  (CTFG)  is  checked  to  determine  if  the 
operator  requested  a  type-out.  If  he  did,  the  flag  is  cleared  and  the 
counts  printed  (PRCNT) . 

The  inhibit  flag  (ITYP)  is  checked  before  entering  the  information 
type-out  section  at  UF0Z  and  if  it  is  nonzero,  no  type-outs  are  issued. 

The  message  section  was  rewritten  to  allow  the  new  PRRG/TYPO  routines 
to  use  them  and  the  headings  for  counts  and  fault  information  added.  The 
sensor  tables  and  count  data  areas  were  added  for  use  in  the  sensor  checks. 

All  the  subroutines  to  do  the  new  functions  were  added  at  the  former 
program  end.  They  will  be  described. 

Print  Sensor  Table  (PST)  prints  4  words  of  sensor  information,  a 
character  for  each  sensor  indicating  whether  sensor  is  all  right  ('0') 
or  faulty  ('F').  First  the  loop  is  set  up  to  get  four  words  and  a  LDW* 
instruction  is  built  to  access  the  sensor  information  in  local  mode. 
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PST10  is  the  loop  point  for  getting  the  new  word  of  sensor  data  and 
PSTZ0  is  the  inner  loop  to  print  the  contents  of  the  sensor  word.  When 
16  characters  have  been  printed,  the  inner  loop  passes  control  back  to 
the  outer  loop  which  calls  TYPO  to  put  out  the  carriage  return,  line  feed, 
then  checks  for  more  sensor  words. 

The  Print  Sensor  Count  (PRCNT)  prints  the  count  tables.  First,  a  row 
of  headings  is  printed;  second,  the  counts  for  current  hour  printed;  and 
third  the  counts  since  initialization  printed.  The  freeway,  ramp,  and 
merge  areas  are  printed.  PCNTR  is  called  to  print  the  numerical  data. 

Convert  counts  to  decimal  and  print  them  is  done  by  PCNTR.  It 
builds  a  LDW*  instruction  to  pick  values  from  the  table  of  counts  and  uses 
the  former  conversion  routines  to  produce  a  decimal  value  of " the  count. 
The  number  of  counts  to  convert  and  address  of  the  first  count  are  passed 
to  the  routine. 

Critical  sensors  are  checked  in  CFAULT.  The  sensor  inputs  (SWI)  are 
"anded"  with  a  stuck  on  list,  inverted  and  "anded"  with  a  struck  off  list. 
If  CTIM  seconds  have  elapsed  then  the  tables  are  checked  for  the  following 
combinations  of  sensors : 

1.  R3  and  R4        yield  sign 

2 .  F4A-F1B         freeway 

3.  R6B  or  R6A       stop  light 

4.  Ml  -  M5       merge  area 

5.  Rll  power  save  mask 

6.  Rl,  R2,  R3  (2  of  3)  count 

If  any  of  these  combinations  have  been  detected,  the  system  resets  the 
field  and  halts  printing  out  the  faulty  sensor  list.  If  all  of  a  group 
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like  the  freeway,  ramp  or  merge  area  indicate  bad,  it  is  assumed  due 
to  inactivity  and  ignored.  The  lists  of  sensor  data  are  reinitialized 
and  routine  exited. 

The  noncritical  sensors  are  checked  in  NCFAULT.  These  will  not 
take  the  system  down  and  are  typed  every  NTIM  seconds  as  information 
(if  ITYP  flag  is  not  set  to  inhibit  type-outs) .  The  sensor  lists  are 
printed  using  PST  and  reinitialized. 

SINP  does  the  sensor  input  processing  for  the  counts  and  faults. 
STP  calls  for  each  sensor  word  input  update,  the  stuck-on,  stuck-off, 
activation  and  update  history  lists.  Then,  if  ATIM  seconds  have  elapsed, 
the  counts  are  typed  and  zeroed  (if  allowed  by  ITYP  flag) .  Then  the 
activation  lists  are  scanned  and  counts  updated  using  FIT  to  update 
freeway  counts,  RIT  to  update  ramp  counts  and  MIT  to  update  merge  area 
counts . 

FIT  checks  if  sensor  is  activated  this  round  and  updates  count 
specified  in  call  parameters  (index  to  freeway  count  table)  if  it  was. 

RIT  does  the  similar  function  to  ramp  count  table. 

MIT  does  it  for  the  merge  area. 
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1  *    FAULT    MONITOR    SUBPROGRAM      #1 

2  *    VERSION   PREPARED    9-28-74 

3  *      STD.    OF    EXCEL.    IS   A  VG    OF   Fl    THRU    F4 

4  * 

5  *    VERSION   OF    1/16/77 

6  *    DOES    NOT    USE   H  VP    IN    FAULT   CHECKS 

7  *   HAS    CRITICAL    SENSOR    CHECKS 

8  *    CAN    SUPPRESS   ALL  BUT   CRITICAL   SENSOR    MESSAGES 

9  *   CAN   PRINT   SENSOR    COUNTS    FOR    HOUR    AND   SUMMARY 

10  * 

11  ORIG      X'2800' 

2800  100F  12    SARG  JMP        STAG        INITIALIZATION   ENTRY 

2801  10EC  13    SERG  JMP         ERG         NORMAL   ENTRY 

0021  14    TIME  EQU  X'0021'         *    TIME  REGISTER 

0020  15   BEGT  EQU  X'0020'         '    REINITIALIZATION   LOC 

0046  16    ERRCH  EQU  X'0046'         '    WHO   DONE    IT    CHARACTER 

062C  17    TRAG  EQU  X'062C         '    OPERATOR    MONITOR    SUBP 

0B88  18   FTTY  EQU  X'OBBS'         '    MISS    Tl    HIGHW 

0B8F  19    FIRY  EQU  X'0B8F'         '    MISS    T3    HIGHW 

OBAB  20    FNVY  EQU  X'OBAB'         '    NEW   CAR    HIGHW 

1802  2  1    MODE  EQU  X ' 1 802 *         '    SYSTEM   MODE 

180C  22    K51F  EQU  X ' 1 80C '         '    BAND    MASKING    WORD 

1617  23    TYPEFLG  EQU  X'1617'         'DATA    LOG    INITIAL    MSG 

0027  24    RERG  EQU  X'0027'         'READ   ADDRESS    OPER    MONITOR 

3EE8  25   CUSC  EQU  X*3EE8'    CHECK    SECOND   COUNT   ROUTINE 

2802  0000  26    TMREQ  DATA  0       '    TIME   PRINT  REQUEST    FLAG 

2803  0001  27    I  TYP  D  1      TYPEOUTS    INHIBITED   AT   LOAD 

2804  0000  28   CTFG  D  0      PRINT  SENSOR    COUNTS    OFF 

2805  OOOA  29    CHLG  D  10        H    LOOP    CONSTANT 

2806  0014  30    CHSG  D  20        H    SENSOR    CONSTANT 

2807  OOOA  31    CRLG  D  10        R    LOOP    CONSTANT 
2308   0014  32    CRSG  D  20        R    SENSOR    CONSTANT 

2809    0905  33    PERG  D  X'0905'         TRAFFIC    PERCENTAGE 

280A    100B  34    SORG  JMP        STOP        GO   TO   HALT    TRAP 

35 
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PAGE 


280B    OOOO 
230C    100B 


280D 
2S0E 
230F 
2310 
2311 
2812 
2S13 
2814 

2315 
2816 
2317 
231  3 
2819 
281A 
2813 
281C 

281  D 
231  E 

281  F 
2  82  0 
2  821 

2  822 
2823 
2824 
2325 
2  82S 
2827 
2  82  3 
2  829 
232A 
2  82B 
2  82C 
282D 
2  82E 
282F 
2830 
2  831 
2  832 
2833 
2834 
2835 
2836 
2837 
2838 
2  839 
283A 
2  83B 
283C 
283D 


0000 
2  8A6 
6J0D 
0100 
73B2 
7002 
95D2 
0040 
2815 
7BI  D 
0501 
1015 
7460 
7461 
74D0 
74D1 
7004 

0120 
9  5C3 
281  F 
7B05 
0501 
101F 

03C0 

1039 

20DB 

0030 

8021 

0080 

C022 

0800 

1033 

0100 

739  E 

83B1 

73C5 

0100 

205B 

54BC 

1039 

0080 

8046 

7258 

0100 

205B 

54B0 

83A9 

73B4 

719C 

719D 

800E 


36  'FAULT 

37  STOP 
38 

39    *    FAULT 

40 

41 

42    STAG 

43 

44 

45 

46 

47 

48    CJ 

49 

50 

51 

52 

53 

54 

55 

56 

57   * 

58 

59 

60    SJ 

61 

62 

63 

64    * 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82   PREIN 

83 

84 

85 

86 

87 

88   PLDM2 

89 

90 

91 

92 


MONITOR    SUBPROGRAM      #2 

HLT         *****    HALT    TRAP   ***** 
J  MP         STOP 
MON   START    UP    SUBROUTINE 


D 

D 

STX 

CLR 

STW 

STW 

LDX 

SLM 

EQU 

STW 

DXS 

J  MP 

STW 

STW 

STW 

STW 

STW 

INV 

LDX 
EQU 
STW 
DXS 
J  MP 

SSO 

J  MP 

JSX 

SMB 

LDW 

SMB 

ORI 

SAZ 

J  MP 

CLR 

STW 

LDW 

STW 

CLR 

JSX 

D 

J  MP 

SMB 

LDW 

STW 

CLR 

JSX 

D 

LDW 

STW 

STW 

STW 

LDW 


0 

IRRG 
$-2 

FERG 
TMR  EQ 
=  103 


SWI 

1 

CJ 

CCLK 

CCNT 

NCLK 
NCNT 
CTFG 


HARDW    IRPT    ADDRESS 


FAULT    TABLES    AND    COUNTS 


I  NI  T   -  1 

=23 


ALL   SET 


SWO 

1 

SJ 


ALL   SENSOR    FAULT    TABLES 


PLDM2 

CDISP 

TIME         I  NI  T   PRINTING    LOGIC 

TIME 

TIME 

TIME+1 


PREIN        AT  ZERO    TIME    PRINT 


RNTIME 

DERG 

TIRG 


PRRG 
/MERG 
PLDM2 
ERRCH 
ERRCH 
MDBG 
AND 
PRRG 
/MDRG 
CM2G 
FSTG 
FMODE 
FBMSK 
STAG- 


TULL    INIT* 


IF    NOT  ZERO   TIME    THEN 


GET   WHO-DONE-IT   CHARACTER 
PRINT  REINIT    MESSAGE 


SET  START    UP    F 
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283E 

0080 

93 

SML 

0 

233F 

7019 

94 

STW 

25 

2840 

034F 

95 

DOT 

4,X'F'         RESET    FAULT    MON   HARDW 

2841 

0036 

96 

DS3 

6 

2842 

80C2 

97 

LDW 

PFRTN-1         PWR    FAIL   SERVICE   ADD 

2843 

0080 

98 

SML 

0 

2844 

701D 

99 

STW 

29 

2  34  5 

0037 

100 

DSB 

7 

2846 

0027 

101 

ENB 

7 

2847 

900D 

102 

LDX 

STAG -2 

2  84  3 

2300 

103 

JSX    * 

0 

2849 

0000 

104 

D 

0           ***    PRINT   SERVICE   ROUTINE 

2S4A 

0100 

105 

PTRG 

CLR 

234B 

73B5 

106 

STW 

FTRG         CLEAR    PRINT    F 

2  84C 

03  E0. 

107 

DOT 

X'E',0        DESELECT    TTY 

2S4D 

2800 

108 
109 

* 

JSX    * 

0 

110 

*  STAT  US 

CHECK 

SUBROUTINE 

1  1  1 

* 

284E 

0000 

284F 

604E 

112 

PCHK 

SUBR 

2850 

02  EO 

113 

DIN 

X'E  ',0 

2851 

0AC1 

1  14 

SRC    L 

1 

2  852 

0820 

115 

SAM 

2353 

1057 

116 

J  MP 

PC  DM 

2854 

0030 

1  17 

SML 

0 

2855 

9001 

1  18 

LDX 

1 

2356 

2800 

1  19 

JSX    * 

0 

2357 

904E 

120 

PCDN 

EXIT 

PCHK 

2858 

2300 

2859 

0000 

121 
122 

* 

D 

0        ***    PRINT   SUBROUTINE  *** 

123 

*    TYPE- 

OUTS 

124 

*           CALL: 

125 

* 

PRRG 

(TIME   STAMPED    TYPE-OUTS) 

126 

*      -OR- 

TYPO 

(NO    TIME    ON    TYPE-OUT) 

127 

*(0) 

D 

BYTE   ADDRESS    TEXT 

128 

*(  1) 

RETURN 

129 

*        ACCUMULATOR    -    NUMBER     ':'    BYTES    TO   PASS 

130 

* 

(NOT   TYPED) 

131 

*    TYPE- 

OUT   WITH    TIME   S  fAI'IP 

132 

* 

285A 

0000 

285B 

605A 

133 

PRRG 

SUBR 

285C 

7337 

134 

STW 

PS1       PRESERVE   MSG    VALUE 

285D 

21CD 

135 

JSX 

SECNT 

285E 

219F 

136 

JSX 

CNVBD 

285F 

21  53 

137 

JSX 

SDCHAR      STORE   SEC    CHARACTERS 

2860 

0001 

138 

D 

1 

2361 

542E 

139 

D 

/SECLC 

2  862 

839  E 

140 

LDW 

RNTIME 

2863 

Al  E6 

141 

ADD 

MI  NADD 

2864 

219F 

142 

JSX 

CNVBD 

2865 

21  E8 

143 

JSX 

SDCHAR 

2866 

0002 

144 

D 

2 

2867 

542A 

145 

D 

/MINLC 

2868 

0100 

146 

CLR 

*** 
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2359 

20SF 

147 

JSX 

TYPO         WHAT    TIME 

2  86A 

542A 

148 

D 

/TMSTMP 

2  36B 

9  05A 

149 

LDX 

PRRG-1 

2S6C 

3387 

150 

LDW 

PS1 

2S6D 

106F 

151 
152 

* 

J  MP 

TYPO 

153 

*    TYPE- 

•OUT   WITHC 

154 

* 

2  86E 

0000 

286F 

606E 

155 

TYPO 

SUBR 

2870 

7386 

156 

STW 

BCNT     BREAK   COUNT 

2871 

8800 

157 

LDW   * 

0 

2872 

7095 

158 
159 

* 

STW 

MSG         MESSAGE  ADDRESS 

2873 

S3B2 

160 

LDW 

FERG 

2874 

0310 

161 

SAP 

PREVIOUS    FAULT   0 

2875 

107C 

162 

JMP 

PROO          YES 

2876 

33C5 

163 

LDW 

PNRG         PTRG    ADDRESS 

2877 

0080 

164 

SML 

0 

2373 

7001 

165 

STW 

1         PRINT   LINKAGE  ADDRESS 

2879 

S3A9 

166 

LDW 

CM2G 

287A 

7332 

167 

STW 

FZrtG      SET   PREV   FAULT    F 

2873 

73B7 

168 

STW 

FUAG      SET  RETYPE    FLAG 

2S7C 

169 
170 

PROO 
* 

EQU 

$ 

287C 

171 

PNC 

EQU 

$ 

287C 

9095 

172 

LDX 

MSG      PICK    UP    MSG    CHAR 

2  37D 

5800 

173 
174 

* 

LDB    * 

0 

2S7E 

073A 

175 

CLB    * 

:  '      BREAK   CHECK 

287F 

0360 

176 

SEQ 

2880 

1088 

1  77 

JMP 

Tl      IT    WAS    NOT 

2831 

9336 

178 

LDX 

BCNT      GET   COUNT 

2  882 

0501 

179 

DXS 

1      DECREMENT 

2883 

1086 

180 

JMP 

NOTND      WAS    NOT   END 

2884 

905E 

!S1 

EXIT 

TYP0,1       WAS    END,    GO 

2885 

2801 

2886 

6386 

182 

NQTND 

STX 

BCNT 

2837 

1093 

183 
134 

* 

JMP 

NXTCH 

2888 

185 

Tl 

EQU 

$ 

2888 

07AF 

186 

CLB 

'/'      WAS    IT  RETURN 

2  889 

0860 

187 

S£Q 

2  88A 

1092 

188 

JMP 

T2      NO,    PUT   CHAR    OUT 

288B 

068D 

169 

LLB 

141 

288C 

2099 

190 

JSX 

OUTCHAR      YES,    CR ,    CR,    LF 

288D 

068D 

191 

LLB 

141 

288E 

2099 

192 

JSX 

OUTCHAR 

288F 

06  8A 

193 

LLB 

138 

2890 

2099 

194 

JSX 

OUTCHAR 

2  8S1 

1093 

195 
196 

* 

JMP 

NXTCH 

2892 

197 

T2 

EQU 

$ 

2892 

2099 

198 

JSX 

OUTCHAR 

2893 

199 

NXTCH 

EQU 

$ 

2893 

9095 

200 

LDX 

MSG         NEXT   MESSAGE   CHAR 

2  89  4 

0401 

201 

IXS 

1 
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2  89  5 
2  89  5 
2  89  7 

6095 
107C 

2  02    MSG                RES 

203  STX 

204  JMp 
205 

1 

MSG 
PNC 

PAGE 


FAULT   MONI  TOR      #3  PAGE 

206  'FAULT    MONITOR       #3 

207  * 


2893    3333 

2899    6098 

203 

OUTCHAR 

SUBR 

289A    0130 

209 

CAX 

2893    83A9 

210 

LDW 

CM2G 

289C    73B5 

211 

STW 

FTRG 

2  89  D  0140 

212 

CXA 

2S9E  03  EE 

213 

DOT 

1«,14 

2  89F 

214 

TWA  IT 

EQU 

$ 

289F  204F 

215 

JSX 

PCHK 

28A0    83B5 

216 

LDW 

FTRG 

2  8A1    0310 

217 

SAP 

28A2    109F 

218 

J  MP 

TWA  IT 

2SA3    9098 

219 

EXIT 

OUTCHAR 

28A4  2300 

220 
FAULT   MONITOR      #4  PAGE 

221  '    FAULT    MONITOR      #4 

222  *    FAULT    MON    HARDWARE   INTERRUPT   SUBROUTINE 
28A  5   0000        223  D  0 

28A6    OOAO        224  IRRG              MS  K 

28A7    0034         225  DSB  4 

28A8    0036        226  DSB  6 

28A9    70A  5        227  STW  IRRG-1 

2SAA    0100        228  CLR 

28AB    73B2        229  STW  FERG         CLEAR    PREV   FAULT    F 

28AC    024F        230  DIN  4,X'F'         INPUT    F    MON    WORD 

28AD   0830        231  SAO                CLOCK    OK    0 

28AE    10BA         232  JMP  IE01         NO 

28AF    33B2         233  LDW  FERG 

2  8B0    0810        234  SAP                ,7IND  ANY    FAULTS    0 

28B1     103D        235  JMP  I E06         YES, STOP    704 

28B2    0024        236  ENB  4 

28B3    83A9        237  LDW  CM2G 

28B4    73B6        238  STW  FUNG         SET   PRINT   FAULT    UNKM    F 

2885   030F        239  DOT  0,X'F'         PREVENT    FLASHING    LIGHTS 

28B6    034F        240  DOT  4,X'F'         RESET   FAULT   MON    HARDW 

28B7    80A  5        241  LDW  IRRG-1         RESTORE  ACR 

28B8   OOBO        242  UNM 

28B9    0016        243  I NR  6 

28BA         244  I EO 1              EQU  $ 

28BA    0100        245  CLR 

28BB   205B        246  JSX  PRRG 

288C    5432        247  D  /M1RG         CLOCK    OUT    MSG 

28BD   83C2        248  IE06             LDW  LKRG 

28BE   0030        249  SML  0 

28BF   7001         250  STW  1         LINKAGE  ADDRESS 

28C0    03EB        251  DOT  X'E'.X'B'    ENABLT   TTY    KEYBOARD 

28C1    200B        252  JSX  STOP      GOTO   HALT   TRAP 

253 
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FAULT  MONITOR      #5  PAGE 

255  '    FAULT   MONITOR      #5 

256  *   POWER    FAIL   INTERRUPT   HANDLER   AND  RESTART 
28C2   28C3  257  DATA      PFRTN 
28C5    OOAO  258   PFRTN  MSK 
28C4  OlOO  259  CLR 
28C5   0390  260  DOT        9,0 

28C6   03E0  261  DOT        XfEf,0      RESET   DEVICES 

28C7    20DB  262  JSX        CDISP      CLEAR    FIELD 

28C8    80CF  263  LDW        PURTN-2 

28C9    0080  264  SML        0 

28CA    7000  265  STW        0  SET    UP    FOR   RESTART 

28CB    80D0  266  LDW        PURTN-1 

28CC   0080  267  SML        0 

2  8CD   7001  2  68  STW         1 

28CE   100B  269  JMP         STOP 

28CF  008A  270  SMB         $        START    UP   ROUTINE 

2  8D0    10D1  271  JMP        PURTN 

28D1    20DB  272    PURTN  JSX        CDISP        CLEAR    DISPLAY 

28D2    0100  273  CLR 

28D3   205B  274  JSX        PRRG 

28D4    547A  275  D  /M7RG 

28D5    06D0  276  LLB         X*DOf         P    IS    HE   WHO-DONE-IT 

28D6   0080  277  SMB         ERRCH 

28D7    7046  278  STW         ERRCH 

28D8    0080  279  SMB        BEGT  REINIT 

28D9    2020  280  JSX        BEGT 
28DA    0000 

28DB   60DA  281    CDISP  SUBR 

28DC   0100  282  CLR  SEND   OUT  ZERO    TO   FIRST 

283  DO  1,10      10   WORDS    OF   FIELD 

28DD  0301  284  DOT  0,? 
28DE  0302 
28DF  0303 
28E0  0304 
28E1  0305 
28E2  0306 
28E$  0307 
28E4  0308 
28E5  0309 
2  8E6    03 OA 

28E7    83A6  285  LDW        CWRD1  1      SEND  LAST    WORD    WITH  BITS 

2  8E8   030B  286  DOT        0,11  TO   TURN    ON   YIELD   AND   AMBER 

28E9    90DA  287 
28EA2800 

2  88 

2  89 


LDW 

CWRD1 

DOT 

0,11 

EXIT 

CDISP 

257 


FAULT    MONITOR      #6  PAGE 


290 

'    FAULT    MONITOR      #6 

2  8E3 

0000 

291 

DATA 

0      CHECK    SENSOR    ERROR    LIS 

28EC 

0040 

292 

ERG                SLM 

SUBPROGRAM   ENTRY 

28ED 

33B4 

293 

LDW 

FSTG 

28EE 

0810 

294 

SAP 

START    UP    0 

2  8EF 

1  135 

295 

J  MP 

SMOO        YES 

28F0 

33A2 

296 

LDW 

CCLG      A  DDR    CARRY    MEMORY    T 

2  8F1 

0120 

297 

INV 

2  8F2 

A3A4 

298 

ADD 

CFFG 

2  8F3 

F3A5 

299 

CMW 

CFEG 

28F4 

0860 

300 

SEQ 

704   ARITHMETIC    OK    0 

28F5 

1  159 

301 

J  MP 

SM01         NO 

302 

*    TIME   AND   HIG 

HW    FAULT    TOLERANCES 

28F6 

0100 

303 

CLR 

2SF7 

7  3B2 

304 

STW 

FERG         CLEAR    PREV   FAULT    F 

28F8 

0030 

305 

SMB 

TIME 

2SF9 

8021 

306 

LDW 

Tl  ME 

28FA 

33C5 

307 

SUB 

TIRG 

28FB 

0810 

308 

SAP 

MORE   THAN    1    MIN    0 

2  8FC 

1116 

309 

J  MP 

SM02        NO 

28FD 

A3C5 

310 

ADD 

TIRG         TIME  RESTORED 

28FE 

A3B1 

31  1 

ADD 

DERG        DELTA    TIME 

2  8FF 

73  C5 

312 

STW 

TIRG         NEXT    1    MIN 

2900 

839  D 

313 

LDW 

BCRG         1    MIN    COUNTER 

2901 

A3AB 

314 

ADD 

C1RG        ADD    1 

2902 

739D 

315 

STW 

BCRG        INCREMENTED 

2903 

839  E 

316 

LDW 

RNTIME 

2904 

A3A8 

317 

ADD 

C1RG      BUMP   RUNNING    TIME 

2905 

739E 

318 

STW 

RNTIME 

2906 

83B7 

319 

LDW 

FWAG 

2907 

0820 

320 

SAM 

WAIT   FOR   RETYPE 

2908 

1  1  16 

321 

J  MP 

SM02         NO 

2909 

839F 

322 

LDW 

BC5G 

290A 

A3AB 

323 

ADD 

C1RG 

290B 

739F 

324 

STW 

3C5G         10   MIN   COUNTER 

290C 

070A 

325 

CLB 

10 

290D 

0860 

326 

SEQ 

COUNTER    =    10    ? 

290E 

1  1  16 

327 

J  MP 

SM02         NO 

290F 

0100 

328 

CLR 

YES 

2910 

739F 

329 

STW 

BC5G         RESET 

291  1 

73B7 

330 

STW 

FWAG        CLEAR    RETYPE    F 

2912 

93B0 

331 

LDX 

C9RG        CLEAR    RETYPE   WORDS 

2913 

7BB8 

332 

STW    * 

HWA1 

2914 

0501 

333 

DXS 

1 

2915 

1  1  13 

334 
335 

J  MP 

$-2 

TEST 
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2916 

2916  24F3 

2917  2450 

2918  24  CD 


2919 
291A 
291B 
29  1C 
291  D 
291  E 
291F 


8004 
0800 
11  ID 
1120 
0100 
7004 
2  3E6 
2920 


336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
3  52 


FAULT    MONITOR      #7 
M02  EQ  U         $ 

JSX 


NCTOUT 


JSX 
JSX 

LDW 

SAZ 
J  MP 
J  MP 
CLR 
STW 
JSX 
EQU 


SINP 

CFAULT 

NC  FAULT 

CTFG      SENSOR    COUNT   REQUEST 


$+2 
NCTOUT 

CTFG 
PRCNT 

$ 


SKIP    IF    NOT    WANTED 
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353    '    FAULT    MONITOR      #8 

2920  83B6  354   SPOO  LDW  FUNG 

2921  0820  355  SAM  PRINT    FAULT   UNKN    0 

2922  1128  356  JMP  SM50        NO 

2923  0100  357  CLR  YES 

2924  73B6  358  STW  FUNG 

2925  0100  359  CLR 

2926  205B  360  JSX  PRRG 

2927  546E  361  D  /M6RG 

2928  115B  362   SM50  JMP  UF01 

2929  0820  363  SAM  FIND  ANY    FAULTS    0 
292A    112F  364  JMP  SM51         NO 

292B    83C2  365  LDW  LKRG        YES 

292C   0080  366  SML  0 

292D  7001  367  STW  1         READ  LINKAGE  ADDRESS 

292E   03EB  368  DOT  X'E'jX'B*        SELECT    KEYBOARD 

292F    839  D  369    SM51  LDW  BCRG 

2930  B3C4  370  SUB  R  ESG 

2931  0820  371  SAM 

2932  1143  372  JMP  SM52        CLEAR    HVP    FAULT   TABLES    ETC. 

2933  0081  373    SM53  SMB  TRAG 

2934  162C  374  JMP  TRAG        GOTO    OP.    MONITOR    ENTRY 

2935  0100  375   SMOO  CLR 

2936  739F  376  STW  BC5G        ZERO    10    MI  N    COUNTER 

2937  73B4  377  STW  FSTG        CLEAR    START-UP    F 

2938  73B6  378  STW  FUNG        CLEAR    PRINT    FAULT    UNKN    F 

2939  73B7  379-  STW  FWAG        CLEAR   RETYPE    F 

293A    739E  380  STW  RNTIME        CLEAR   RUNNING    TIME 

293B   93B0  381  LDX  C9RG        CLEAR   RETYPE   WORDS 

293C    7BB8  382  STW    *    HWA 1 

293D   0501  383  DXS  1 

293E   1 13C  384  JMP  $-2 

293F   0080  385  SMB  TIME 

2940  8021  386  LDW  TIME        SYSTEM   TIME 

2941  A3B1  387  ADD  DERG        DELTA    TIME 

2942  73C5  388  STW  TIRG        CURRENT   TIME 

2943  0100  389    SM52  CLR 

2944  739D  390  STW  BCRG        CLEAR    1    MIN   COUNTER 

2945  73B3  391  STW  FRRG        ZEVORAMP    FLAG 

2946  214D  392  JSX  ZERG 

2947  0B8F  393  D  FIRY        IN   HVP 

2948  214D  394  JSX  ZERG 

395 
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396    '    FAULT    MONITOR       #9 


2949 

OB  88 

397 

D 

FTTY        ! 

IN    HVP 

294A 

214D 

398 

JSX 

ZERG 

294B 

OBAB 

399 

D 

FNVY 

IN    HVP 

294C 

1  133 

400 

J  MP 

SM53 

294D 

60  EB 

401 

ZERG 

STX 

ERG-1 

294E 

9800 

402 

LDX 

* 

0 

294F 

0100 

403 

CLR 

2950 

7800 

404 

STW 

* 

0 

2951 

7801 

405 

STW 

* 

1 

2952 

7802 

406 

STW 

* 

2 

2953 

7803 

407 

STW 

* 

3 

2954 

7804 

408 

STW 

* 

4 

2955 

7805 

409 

STW 

* 

5 

2956 

7806 

410 

STW 

* 

6 

2957 

9  0EB 

411 

LDX 

ERG-1 

2958 

1801 

412 

J  MP 

* 

1 

2959 

OOAO 

413 

SM01 

MSK 

295A 

200B 

414 

JSX 

STOP 

295B 

0085 

415 

UF01 

SMB 

TYPEFLG 

AND    UF 

295C 

8617 

416 

LDW 

TYPEFLG 

I  NITIAL 

295D 

0800 

417 

SAZ 

OUTPUT 

295E 

1  160 

418 

JMP 

$+2 

295F 

1  166 

419 

J  MP 

UF02 

2960 

0100 

420 

CLR 

2961 

205B 

421 

JSX 

PRRG 

2962 

5484 

422 

D 

/M9RG 

2963 

0100 

423 

CLR 

2964 

0085 

424 

SMB 

TYPEFLG 

2965 

7617 

425 

426 

STW 

TYPEFLG 

DATA    LOG 
MESSAGE 
PATCH 
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2966 
2967 
29S3 
2969 
296A 
2963 
296C 
296D 
296E 
296F 
2970 
2971 
2972 
2973 
2974 
2975 

2976 
2977 
2978 
2979 
297A 
297B 
297G 
297D 
2971 
297F 
2980 
2931 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
298A 
298B 
298C 
298D 
298E 
298F 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 
299A 


2966 

0086 

3002 

F19C 

0870 

1176 

0040 

719C 

0130 

8995 

7175 

8003 

0800 

1  176 

0100 

205B 

546E 

2976 

819C 

F3AB 

0880 

1  18C 

0086 

800C 

Fl  9D 

0870 

118C 

719D 

0130 

0401 

0A10 

0040 

899A 

71  SB 

8003 

0800 

118C 

0100 

205B 

546E 

8002 

0800 

1190 

1194 

0100 

7002 

2058 

54A4 

83B2 

1129 

543E 

544A 

5456 

5460 

549A 


427 

428  * 

429  UF02 
430 

431 
4  32 
433 
434 
435 
436 
437 
438 
439 
440 
441 
4  42 
443 
444 

445  MMSG 

446  NMDP 

447  FMTST 
443 

449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
4  60 
461 
462 
4  63 
464 
465 
466 
467 

468  BMSG 

469  UF03 
470 

471 

4  72 

473 

474 

475 

476 

477    UF035 

478 

479    MMSGS 

480 

481 

4  82 

483    3MSGS 


FAULT    MONITOR       #10 


EQU 

SMB 

LDW 

CMW 

SNE 

JMP 

SLM 

STW 

CAX 

LDW 

STW 

LDW 

SAZ 

JMP 

CLR 

JSX 

D 

EQU 

LDW 

CMW 

^SGR 

JMP 

SMB 

LDW 

CMW 

SNE 

JMP 

STW 

CAX 

IXS 

NOP 

SLM 

LDW 

STW 

LDW 

SAZ 

JMP 

CLR 

JSX 

D 

LDW 

SAZ 

JMP 

JMP 

CLR 

STW 

JSX 

D 

LDW 

JMP 

D 

D 

D 

D 

D 


MODE 
MODE 
FMODE 

FMTST 

FMODE 


MODE  MESSAGE  PRINT 

GET   MODE    --    IF    NOT 

SAME    AS    PREVIOUS    MODE 
STORE   AS    LAST    MODE 
AND    PRINT    MESSAGE 


*    MMSGS 
MMSG 
I  TYP    PERMIT    PRINT   CHECK 

NMDP      SKIP    PRINT 


PRRG 
/N6RG 

S 

FMODE 

C1RG 

UF03 
K51F 

K51F 
FBMSK 

UF03 
F6i--.SK 


IN    MODES    2    AND    3    IF 
K5  1F  .MAS    CHANGED 
PRINT   MESSAGE   AND 

STORE  AS    PREVIOUS 
BAND    MASK    WORD 


BMSGS 
BMSG 
I  TYP 

UF03 

PRRG 

/M6RG 

TMREQ 

$+2 

UF03  5 

TMREQ 

PRRG 

/MCRG 

FERG 

SM50+1 

/M2RG 

/M3RG 

/M4RG 

/M5RG 

/MBKG 
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299E 
299C 
299  D 

5490 
0000 
0000 

484 

485  FMODE 

4  86  FBMSK 

487 

D 

DATA 

DATA 

/MARG 

0 

0 

PAGE       14 


FAULT   MONITOR      #1  1  PAGE       15 


488 

*  FAULT 

MONITOR   #11 

489 

* 

490 

*  BINARY 

TO  DECIMAL  CONVERSION 

491 

*  CALL  WITH  BINARY  I  N  ACC 

492 

* 

299E 

0000 

299F 

619E 

493 

CNVBD 

SUBR 

29A0 

0810 

494 

SAP 

29A1 

1 1  A  4 

495 

JMP 

MAXIT 

29A2 

F5D4 

496 

CMW 

=  S999   BCD  RETURNED 

29A3 

0390 

497 

SLE 

29A4 

498 

MAXIT 

EQU 

$ 

29A  4 

85D4 

499 

LDW 

=  9S99 

29A5 

71C4 

500 

STW 

C  N  VA 

2946 

93A2 

501 

LDX 

CCLG 

29A7 

61  C5 

5  02 

STX 

CNV'C 

29A3 

9  3AC 

503 

LDX 

C3RG 

29A9 

61  C6 

504 

STX 

CNVI 

29AA 

93A2 

505 

CNVI 

LDX 

CCLG 

29AB 

61C7 

506 

STX 

CNVJ 

29AC 

91CS 

507 

CNV2 

LDX 

CNVI 

29AD 

0040 

508 

SLM 

29AE 

F9C3 

509 

CMW  * 

CNVD 

29AF 

0340 

510 

SLS 

2930 

1  132 

51  1 

JMP 

S+2 

29B1 

11-38 

512 

J  M? 

CNV3 

29B2 

39C3 

513 

SUB  * 

CNVD 

29B3 

91C7 

514 

LDX 

CNVJ 

2934 

0401 

515 

IXS 

1 

29B5 

0000 

516 

HLT 

29B6 

61  C7 

517 

STX 

CNVJ 

2937 

1  1  AC 

518 

JMP 

CNV2 

29B8 

71C4 

519 

CNV3 

STW 

CNVA 

29B9 

81C5 

520 

LDW 

CNVC 

29BA 

0A14 

521 

SLL 

4 

29BB 

Al  C7 

522 

ADD 

CNVJ 

29BC 

0501 

523 

DXS 

1 

293D 

11  CO 

524 

JMP 

CNV4 

29BE 

919E 

525 

EXIT 

CNVBD 

29BF 

2800 

29C0 

71C5 

526 

CNV4 

STW 

CNVC 

29C1 

81  C4 

527 

LDW 

CNVA 

29C2 

61C6 

528 

STX 

CNVI 

29C3 

11AA 

529 

JMP 

CNVI 

29C4 

0000 

530 

CNVA 

D 

0 

29C5 

0000 

531 

CNVC 

D 

0 

29C6 

0000 

532 

CNVI 

D 

0 

29C7 

0000 

533 

CNVJ 

D 

0 

29CS 

0001 

534 

CNVD 

D 

1 

29C9 

OOOA 

535 

D 

10 

29CA 

0064 

536 

D 

100 

29C3 

03  E8 

537 
538 

D 

1000 

IN    ACC 
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539  '  FAULT  MONITOR   #12 

540  * 

541  *   SUBROUTINE    FOR    COMPUTING    SECOND   COUNT 

542  * 


29CC 

0000 

29CD 

61CC 

543 

SECNT 

SUBR 

29CE 

0100 

544 

CLR 

29CF 

71  ES 

545 

STW 

MINADD 

29  DO 

83C5 

546 

LDW 

TIRG 

29  Dl 

0080 

547 

SMB 

TIME 

29D2 

B021 

548 

SUB 

TIME 

29  D3 

01  10 

549 

CMP 

29  D4 

0320 

550 

SAM 

29  D5 

1  1  E3 

551 

J  MP 

PASTIME 

29  D6 

A3B1 

5  52 

ADD 

DERG 

29  D7 

93A2 

553 

REDO 

LDX 

CCLG 

29  D8 

F5D5 

554 

LOOP 

CMW 

=  500 

29  D9 

0840 

555 

SLS 

29  DA 

1  1  DC 

556 

J  MP 

$4-2 

29  DB 

1  1  EO 

557 

J  MP 

DONE 

29  DC 

B5D5 

558 

SUB 

=500 

29  DD 

0401 

559 

IXS 

I 

29  DE 

0000 

560 

HLT 

29  DF 

1  1  D8 

561 

J  MP 

LOOP 

29E0 

0140 

5  62 

DONE 

CXA 

29  El 

91CC 

563 

EXIT 

SECNT 

29E2 

2800 

29E3 

93AB 

564 

PASTIME 

LDX 

C1RG 

29  E4 

61  E6 

565 

STX 

MI  NADD 

29  E5 

11  D7 

566 

J  MP 

REDO 

29  E6 

0000 

567 

568 

MINADD 

D 

0 
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613    '    FAULT    MONITOR      #14 


2A3F 

B1B2 

614 

BING 

D 

X'B1B2'          1,2 

2A1  0 

B334 

615 

D 

X'E3B4'         3,4 

2A1  1 

3  536 

616 

D 

X'B5B6'          5,6 

2A12 

3738 

617 

D 

X'B768'          7,8 

2A13 

39C1 

618 

D 

X*B9C1  '          9, A 

2A14 

&300 

619 

D 

X'BOOO'          0 

2A1  5 

620 

TMSTMP 

EQU 

$ 

2A15 

BDBO 

621 

MINLC 

TEXT 

'030     ' 

2A16 

BDAO 

2A17 

3030 

622 

SECLC 

TEXT 

'00    :' 

2A1  3 

AOBA 

623 

* 

2A19 

C3CC 

624 

M1RG 

TEXT 

'CLOCK    OUT/: ' 

2A1A 

CFC3 

2A1B 

CBAO 

2A1  C 

CFD5 

2A1  D 

D4AF 

2A1  E 

BAAO 

625 

* 

2A1  F 

C9CZ 

S2S 

M2RG 

TEXT 

•I  NIT    NODE/:  ' 

2A2  0 

C9D4 

2A2  1 

AOCD 

2A22 

CFC4 

2A23 

C5AF 

2A24 

BAAO 

62  7 

* 

2A25 

D3D4 

628 

M3R3 

TEXT 

'STOP   METER/: 

2A26 

CFDO 

2A27 

AOCD 

2A28 

C5D4 

2A2S 

C5D2 

2A2A 

AFBA 

629 

* 

2A2B 

D3D4 

630 

M4RG 

TEXT 

'STOP    GAP/: ' 

2A2C 

CFDO 

2A2D 

A0C7 

2A2E 

CI  DO 

2A2F 

AFBA 

631 

* 

2A30 

CDCF 

632 

M5RG 

TEXT 

'MOVING    MERGE 

2A31 

D6C9 

2A32 

CEC7 

2A33 

AOCD 

2A34 

C5D2 

2A3  5 

C7C5 

2A36 

AFBA 

633 

* 

2A37 

C6CI 

634 

M6RG 

TEXT 

"FAULT   UNK/: ' 

2A38 

D5CC 

2A39 

D4A0 

2A3A 

D5CE 

2A3B 

CBAF 

2A3C 

BAAO 

635 

* 

2A3D 

D0D7 

636 

M7RG 

TEXT 

'PWR    FAIL/:* 

2A3E 

D2A0 
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569  '  FAULT  MONITOR   #13 

570  * 

571  *STORE   CHARACTERS    FOR   BCD    OR    HEX   VALUE 
5  72    * 

29 E7    0000 

29E8   61E7  573SDCHAR  SUBR 

29E9    7203  574  STW  SDCA      PASSED   IN   ACC 

29EA    8801  575  LDW    *  1  CALLED    WITH   JSX 

29EB    7205  576  STW  SDCE        NUMBER    OF   DIGITS    -1    AT 

29EC  A800  577  ADD    *  0  CALL+1      BYTE   ADDR    FOR    1ST 

29ED   0130  578  CAX  DIGIT  AT   CALL+2 

29EE   6206  579   SDBK  STX  SDCP        RETURNS    TO   CALL+3 

29 EF   8203  580  LDW  SDCA 

29F0    E5D6  581  AND  =X'Ff        GET   DIGIT 

29F1    0130  582  CAX 

29F2    8203  583  LDW  SDCA        SET    UP    FOR    NEXT   DIGIT 

29 F3    0A04  584  SRL  4 

29F4    7203  585  STW  SDCA 

29F5    0040  586  SLM 

29F6    5C0E  587  LDB    *  /SDCC        GET   CORRESPONDING    CHAR. 

29F7    9206  588  LDX  SDCP 

29F8    0050  589  SGM 

29F9    3800  590  STB    *  0   STORE  AT   POINTER    LOCATION 

29FA    0501  591  DXS  1 

29  FB    11FD  592  J  MP  $+2         UPDATE   POINTER 

29FC    0000  593  HLT 

29FD  0140  594  CXA 

29FE    F205  595  CMW  SDCE 

29FF    0840  596  SLS 

2A00    11  EE  597  JMP  SDBK 

2A01    91 E7  598  LDX  SDCHAR-1         FINISHED 

2A02   2802  599  JSX    *  2 

2A03    0000  600   SDCA  D  0 

2A04    0000  601    SDCB  D  0 

2A05    0000  602    SDCE  D  0 

2A06   0000  603   SDCP  D  0 

2A07   B0B1  604    SDCC  D  X'BOBl  *      0-9 

2A08  B2B3  605  D  XfB2B3' 

2A09    B4B5  606  D  X*B4B5' 

2A0A    B6B7  607  D  XfB6&7' 

2A0B   B8B9  608  D  X'B8B9' 

2A0CC1C2  609  D  X,C1C2'      A-F 

2A0D   C3C4  610  D  X'C3C4f 

2A0E   C5C6  61  1  D  X'C5C6* 
612 
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2A3F 

C6C1 

2A4J 

C9CC 

2A41 

AFBA 

to3  7 

* 

2A  42 

D4D9 

633 

M9^G 

TEXT 

'TYPE  ft  UNI D/: ' 

2A43 

DOC5 

2A44 

A0D2 

2A45 

D5CE 

2A4S 

C9C4 

2A47 

AFBA 

639 

* 

2A4S 

C2C1 

640 

MARG 

TEXT 

'BAND    :rSK/:  ' 

2A  49 

CZC4 

2A4A 

AOCD 

2A4B 

D3CB 

2A4C 

AFBA 

641 

* 

2A4D 

D5CE 

642 

MBR3 

TEXT 

'UNMASKED/: ' 

2A4E 

CDC1 

2A4F 

D3CB 

2A50 

C5C4 

2A51 

AFBA 

643 

* 

2A52 

D3C9 

644 

MCRG 

TEXT 

"SINC£   I  NI  T/:  ' 

2A53 

CEC3 

2A54 

C5A0 

2A55 

C9CE 

2A56 

C9  D4 

2A57 

AF3A 

645 

* 

2A58 

AOA3 

645 

MDRG 

TEXT 

ft  EI  NIT/:* 

2A  59 

A  OD2 

2A5A 

C5C9 

2A53 

CEC9 

2A  5C 

D4AF 

2A5D 

3A40 

2A  58 

647 
648 

MD33 

* 

EQU 

MDRG 

2A5E 

C6D5 

649 

MERG 

TEXT 

'FULL   I  NIT/:  ' 

2A5F 

CCCC 

2A60 

AOC9 

2AS1 

CEC9 

2AS2 

D4AF 

2AS3 

BAAO 

650 

* 

2A64 

AFBA 

651 

CRLF 

TEXT 

'/:/: ' 

2A65 

AFBA 

652 

* 

2A66 

C3D2 

653 

CFMSG 

TEXT 

'CRITICAL   SENSOR 

FAILURE/ 

2A67 

C9D4 

2A68 

C9C3 

2A69 

CI  CC 

2A6A 

AOD3 

2A63 

C5CE 

2ASC 

D3CF 

2A6D 

D2A0 

2ASE 

C6C1 
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2A6F    C9CC 

2A70    D5D2 

2A71    C5AF 

2A72    3AA0 

654    * 

2A73    D3C5 

655    NCFMSG 

2A74    CED3 

2A7  5    CFD2 

2A76  A0C6 

2A77    C1C9 

2A78    CCD5 

2A79    D2C5 

2A7A    AFEA 

TEXT       'SENSOR    FAILURE/:' 


656 
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65  7    'FAULT.  MONI  TOR       #15 

655    * 
2A7B   AOAJ         659    FWY  TEXT       '       F7A  :      F7B:       F6A:       F6B:' 

2A7C  C537 
2A7D  C1GA 
2A7E  AOAO 
2A7F  C637 
2AS0  C2BA 
2A81  AOAO 
2A82  C636 
2AS3  CI BA 
2AS4  AJAJ 
2A35  C536 
2A36    C2BA 

2AS7    AOAO         660  TEXT       *       F5A :       F53 :       F4A :       F4B:' 

2A88  C6P5 
2AS9  C1BA 
2A«A  AOAO 
2ASE  C63  5 
2ASC  C2BA 
2ASD  AOAO 
2ASZ  C634 
2ASF  CI 3A 
2A90  AOAO 
2A91  C68  4 
2A32    C23A 

2A93   AOAO         661  TEXT       '       F3A  :       F3B:       F2A:       F2B :  * 

2A94  C6B3 
2A9  5  C13A 
2A96  AOAO 
2AS7  C6B3 
2A9  8  C23A 
2A99  AOAO 
2A9A  C632 
2A9B  C13A 
2A9C  AOAO 
2A3D  C6B2 
2A9Z  C2BA 

2A9F  AOAO         662  TEXT       '       F1A:       FIB:* 

2AA0  C5B1 
2AA1  C1BA 
2AA2  AOAO 
2AA3  C6B1 
2AA4    C2BA- 

2AA5  AOAO         663    FWY1  TEXT       '       FOA :       FOB:' 

2AA6  C6B0 
2AA7  C1BA 
2AA8  AOAO 
2AA9  C6B0 
2AAA    C2BA 

2AAB   AOAO        664  TEXT      '      F4C  :      F4D:      Fl  C:      FOC:  ' 

2AAC  C6B4 
2AAD  C3BA 
2AAE  AOAO 
2AAF  C5B4 
2A30  C43A 
2A31    AOAO 
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FA  UL  T 

MONITOR 

2A82 

C631 

2AB3 

C3BA 

2A3  4 

AOAO 

2AB5 

C630 

2A36 

C33A 

2AB7 

AOAO 

665 

2AB8 

C6B0 

2AB9 

C43A 

2A3A 

AOAO 

2AB3 

C6B4 

2ABC 

C53A 

2A3D 

AOAO 

2A3E 

C6B4 

2A3F 

C6BA 

2AC0 

AOAO 

2AC1 

CS31 

2AC2 

C43A 

2AC3 

AOAO 

6S6 

2AC4 

CS30 

2AC5 

C53A 

2AC6 

AOAO 

2AC7 

C6B0 

2AC3 

CS3A 

667    * 

2ACS 

AOAO 

658    riRG 

2ACA 

AOCD 

2AC3 

B1BA 

2ACC 

AOAO 

2ACD 

AOCD 

2ACZ 

B23A 

2ACF 

AOAO 

2AD0 

AOCD 

2AD1 

333A 

2AD2 

AOAO 

2AD3 

AOCD 

2AD4 

B4BA 

2AD5 

AOAO 

669 

2ADS 

AOCD 

2AD7 

353A 

2AD8 

AOAO 

2AD9 

AOCD 

2ADA 

363A 

2ADB 

AOAO 

2ADC 

AOCD 

2ADD 

B7BA 

2ADE 

AOAO 

2ADF 

AOCD 

2AE0 

B8BA 

670   * 

2AE1 

AOAO 

671    RMP 

2AE2 

D2B1 

2AE3 

B13A 

2AE4 

AOAO 

2AE5 

D2B1 

2AES 

B03A 

2AE7 

AOAO 

2AE8 

A0D2 

#15 


PAG: 


22 


TEXT      '      FOD:      F4E:      F4F:      FID: 


TEXT      '      FOE:      FOF: ' 


TEXT      '         Ml:         M2  :         f!3:         M4: 


TEXT      '        M5:        P16  :        M  7:        ME 


TEXT      '      Rll:     RIO:        R9:        RS:' 
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2AE9 

B9BA 

2AEA 

AOAO 

2AEB 

A0D2 

2AEC 

B8BA 

2AED 

AOAO 

672 

2AEE 

A0D2 

2AEF 

B7BA 

2AF0 

AOAO 

2AF1 

D2B6 

2AF2 

C2BA 

2AF3 

AOAO 

2AF4 

D2B6 

2AF5 

C1BA 

2AF6 

AOAO 

2AF7 

A0D2 

2AF3 

B5BA 

2AF9 

AOAO 

673 

2AFA 

A0D2 

2AFB 

B4BA 

2AFC 

AOAO 

2AFD 

A0D2 

2AFE 

B3BA 

2AFF 

AOAO 

2  BOO 

A0D2 

2B01 

B2BA     ' 

► 

2B02 

AOAO 

2B03 

A0D2 

2B04 

B1BA 

674 
675 

TEXT 


R7:      R6B:      R6A: 


R5: 


TEXT 


R4: 


R3: 


R2: 


Rl 
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676 

'FAULT 

MONITOR 

#16 

677 

* 

2B05 

678 

swo 

RES 

4 

2B09 

679 

SWD 

RES 

4 

2B0D 

680 
681 

SWF 

* 

RES 

4 

2B1  1 

682 

CSFO 

RES 

4 

2B15 

683 

CSFD 

RES 

4 

2B19 

684 
685 

CSF 

* 

RES 

4 

2B1  D 

686 

SWI 

RES 

4 

2B21 

687 

SWA 

RES 

4 

2B25 

688 
689 

SWH 
* 

RES 

4 

2B29 

690 

FHC 

RES 

26         46   HOUR    COUNTS 

2B43 

691 

MHC 

RES 

8 

2B4B 

692 
693 

RHC 
* 

RES 

12 

2B57 

694 

FC 

RES 

26         46   SUMMARY    COU 

2B71 

695 

MC 

RES 

8 

2B79 

696 
697 

RC 
* 

RES 

12 

2B85 

698 

SA1 

RES 

1 

2B86 

699 

BCNT 

RES 

1 

2B87 

700 

PS1 

RES 

1 

2B88 

AOBO 

701 

NO  MR 

TEXT 

•  oooor 

2B89 

BOBO 

2B8A 

BOBA 

2B8B 

702 

SCR2 

RES 

1 

2B8C 

8800 

703 

LDWX 

LDW    * 

0 

2B8D 

704 

STPRNT 

RES 

0 

705 

DO 

1,8 

2B8D 

AOAO 

706 

D 

?       t 

2B8E 

AOAO 

2B8F 

AOAO 

2B9  0 

AOAO 

2B91 

AOAO 

2B92 

AOAO 

2B93 

AOAO 

2B9  4 

AOAO 

2B9  5 

AFBA 

707 

D 

'/:' 

2B96 

708 

SCR3 

RES 

2B97 

709 

SCR4 

RES 

2B98 

710 

SCR5 

RES 

2599 

711 

FAB 

RES 

2B9A 

712 

MAB 

RES 

2B9B 

713 
714 

RAB 

RES 
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715    '    FAULT    MONITOR      #1  7 


716 

*    DATA 

BASE 

2B9C 

OOOA 

717 

ACRG 

D 

X'A '         LOOP    TOLERANCE 

2B9D 

0002 

718 

BCRG 

D 

2         1    MIN 

COUNTER 

2B9E 

0000 

719 

RNTIME 

D 

0        RUNNING    1    MINUTE    COUNTER 

2B9F 

3333 

720 

BC5G 

D 

0         10    MIN.    COUNTER 

2BA0 

OOOA 

721 

CARG 

D 

10 

2BA1 

AOOO 

722 

CBLG 

D 

X'AOOO' 

BLANK 

2BA2 

0000 

723 

CCLG 

D 

0         ZERO 

2BA3 

C200 

724 

CDRG 

D 

X'C200' 

2BA4 

FFFF 

725 

CFFG 

D 

X 'FFFF' 

2BA5 

FFFE 

726 

CFEG 

D 

X'FFFE' 

2BA6 

8022 

727 

CWRD1  1 

D 

X'8022' 

SIGN    AND   SIGNAL    WORD 

23A7 

0301 

728 

CDOT 

D 

X'0301 ' 

DOT    0,1    INSTRUCTION 

2BA8 

OOOB 

729 

CIXG 

D 

1  1         NO. 

PRINT   CHAR 

2BA9 

FFFE 

7  30 

C  M2G 

D 

X'FFFE  ' 

-2 

2BAA 

CI  00 

731 

CURG 

D 

X'CIOO' 

A 

23AB 

0001 

7  32 

C1RG 

D 

1 

2BAC 

0003 

733 

C3RG 

D 

3 

2BAD 

333A 

734 

C4RG 

D 

4 

2BAE 

0006 

735 

C6RG 

D 

6 

2BAF 

0008 

736 

C8RG 

D 

8 

2BB0 

0009 

737 

C9RG 

D 

9 

2BB1 

7530 

738 

DERG 

D 

X'7530* 

DELTA    TIME    1    MIN 

2BB2 

0000 

739 

FERG 

D 

0        PREVIOUS    FAULT    FLAG 

2BB3 

0000 

740 

FRRG 

D 

0        ZERO   1 

RAMP    TABLE    FLAG 

2BB4 

0000 

741 

FSTG 

D 

0         START 

UP    FLAG 

2BB5 

3333 

742 

FTRG 

D 

0         PRINT 

FLAG 

2BB6 

0000 

743 

FUNG 

D 

0        PRINT 

FAULT    UNKN    FLAG 

2BB7 

0000 

744 

FWAG 

D 

0        RETYP 

E    FLAG 

2BB8 

745 

HWA1 

RES 

4        HIGHW 

RETYPE 

2BBC 

746 

HWA2 

RES 

6        RAMP   1 

iETYPE 

2BC2 

0027 

747 

LKRG 

D 

RERG        READ   ADDRESS    OP    MON 

2BC3 

284A 

748 

PNRG 

D 

PTRG         PRINT   ADDRESS 

2BC4 

003C 

749 

RESG 

D 

60        RESE 

T    TIME 

2BC5 

0000 

750 

TIRG 

D 

0         NEXT 

MINUTE    TIME 

2BC6 

0014 

751 

WTRG 

D 

X'14'         SENSOR    PAIR    TOLERANCE 

7  52 
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FAULT 

MONITOR      #18 

PAGE 

7  53 

'FAULT    MONITOR 

#18 

754 

* 

755 

*   PRINT  : 

5ENS0R 

TABLE 

756 

* 

757 

*      FORMAT    MATCHES   BIT   PATTERN    OF    INPUT    COMMANDS 

758 

*            bet. 

OPERATOR    MANUAL 

759 

* 

7  60 

*        CALL 

* 
• 

761 

* 

PST 

7  62 

*(0) 

D 

ADDRESS    4    WORDS    OF   SENSOR    INFO 

763 

*(l  ) 

RETURN 

764 

* 

2BC7 

0000 

2BC8 

53C7 

765 

PST 

SUBR 

2BC9 

8800 

7  66 

LDW    * 

0 

2BCA 

A5D7 

767 

ADD 

=  4 

2BC3 

95D3 

768 

LDX 

=  -4 

2BCC 

E5D9 

769 

AND 

r204  7 

2BCD 

C3  8C 

770 

OR  I 

LDWX 

2BCE 

73D1 

771 
772 

* 

STW 

LDW2 

2BCF 

773 

PST10 

EQU 

$ 

2BCF 

6396 

774 

STX 

SCR3 

23D0 

004  0 

775 

SLM 

23D1 

0A1  0 

776 

LDW2 

NOP 

2BD2 

9  5  DA 

777 
778 

* 

LDX 

=  -16 

2BD3 

779 

PST20 

EQU 

$ 

2BD3 

7397 

780 

STW 

SCR  4 

2BD4 

06B0 

781 

LLB 

'0' 

2BD5 

0310 

7  52 

SAP 

23D6 

06C6 

783 

LLB 

'F ' 

2BD7 

0040 

784 

SLM 

2BD3 

3F2A 

785 

STB    * 

STPRNT+16 

2BD9 

8397 

786 

LDW 

SCR4 

2BDA 

0A1  1 

787 

SLL 

1 

2BDD 

04  01 

788" 

IXS 

1 

2BDC 

13D3 

7  89 
790 

* 

J  MP 

PST20 

2BDD 

0100 

791 

CLR 

23DE 

206F 

792 

JSX 

TYPO 

2BDF 

571  A 

793 
794 

* 

D 

/STPRNT 

2BE0 

9396 

795 

LDX 

SCR3 

23EI 

04  0! 

796 

IXS 

1 

2BE2 

13CF 

797 
798 

* 

J  MP 

PST1  0 

23E3 

93C7 

799 

EXIT 

PST,  1 

2BE4 

2801 

2  6 


800 
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801 

'I 

rAULT 

MONI  TOR 

#19 

802 

* 

803 

* 

PRINT 

COUNTS 

804 

* 

805 

* 

CAL1 

806 

* 

JSX 

PRCNT      (LOCAL   PAGE) 

807 

* 

CO) 

RETURN 

80S 

* 

809 

* 

PRINTS    FREEWAY,   RAMP,    MERGE   COU 

810 

* 

FOR 

HOUR    AND   SUMMARY. 

81  1 

* 

2BE5 

0000 

2BE6 

63  E5 

812 

PRC 

SUBR 

2BE7 

85  DB 

813 

LDW 

=  1 

2BE8 

206F 

814 

JSX 

TYPO 

2BE9 

54C8 

815 

D 

/CRLF 

23EA 

0100 

816 

CLR 

2BEB 

205B 

817 

JSX 

PRRG 

2BEC 

54  C8 

818 
819 

* 

D 

/CRLF 

2BED 

85  DC 

820 

LDW 

=13      FREEWAY   COUNTS 

2BEE 

206F 

821 

JSX 

TYPO 

2BEF 

54F6 

822 

D 

/FWY 

2BF0 

0103 

823 

CLR 

2BF1 

206F 

824 

JSX 

TYPO 

2BF2 

54  C8 

825 

D 

/CRLF 

2BF3 

85  DD 

826 

LDW 

=  14 

2BF4 

2438 

82  7 

JSX 

PCNTR 

2BF5 

2B37 

828 

D 

FHC+14 

2BF6 

0100 

829 

CLR 

2BF7 

206F 

830 

JSX 

TYPO 

2BF8 

54  CS 

831 

D 

/CRLF 

2BF9 

85DD 

832 

LDW 

=  14 

2BFA 

2438 

833 

JSX 

PCNTR 

2BFB 

2B65 

834 
835 

* 

D 

FC+14 

2BFC 

85  DB 

836 

LDW 

=  1 

2BFD 

206F 

837 

JSX 

TYPO 

2BFE 

54  C8 

838 

D 

/CRLF 

2BFF 

85DE 

839 

LDW 

=  1  1 

2  COO 

206F 

840 

JSX 

TYPO 

2C01 

554A 

841 

D 

/FWY1 

2C02 

0100 

842 

CLR 

2C03 

206F 

843 

JSX 

TYPO 

2C04 

54C8 

8  44 

D 

/CRLF 

2  CO  5 

85DF 

845 

LDW 

=  12 

2  CO  6 

2438 

8  46 

JSX 

PCNTR 

2C07 

2B43 

847 

D 

FHC+26 

2C08 

0100 

848 

CLR 

2C09 

206F 

849 

JSX 

TYPO 

2C0A 

54  C8 

850 

D 

/CRLF 

2C0B 

S5DF 

851 

LDW 

=  12 

2C0C 

2438 

852 

JSX 

PCNTR 

2  COD 

2B71 

853 
854 

* 

D 

FC+26 

2C0E 

85  DB 

855 

LDW 

=  1         RAMP    COUNTS 

2C0F 

20SF 

856 

JSX 

TYPO 
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.FAULT 

MONITOR 

#19 

2 CI  0-  5 ACS 

857 

D 

/CRLF 

2  CI  1    85DE 

858 

LDW 

=  1  1 

2C12   206F 

859 

JSX 

TYPO 

2  CI  3    55C2 

860 

D 

/ft  MP 

2C14    0100 

861 

CLR 

2C15    206F 

862 

JSX 

TYPO 

2  CI  6    54  C8 

863 
864 

D 

/CRLF 

PAGE      2  3 


FAULT   MONITOR      #20 


PAGE      2  9 


865    'FAULT 

MONITOR 

#20 

866   * 

2Ci  7 

85DF 

867 

LDW 

=  12 

2C1  S 

2438 

868 

JSX 

PCNTR 

2  CI  9 

2B57 

869 

D 

RHC+12 

2  CI  A 

0100 

870 

CLR 

2C1B 

206F 

871 

JSX 

TYPO 

2C1  C 

54  C8 

872 

D 

/CRLF 

2  CI  D 

85DF 

873 

LDW 

=  12 

2  CI  E 

2438 

874 

JSX 

PCNTR 

2  CI  F 

2B85 

875 
875   * 

D 

RC  +  12 

2C2  0 

85  DB 

877 

LDW 

rl 

2C21 

206F 

878 

JSX 

TYPO 

2C22 

54C8 

8  7.9 

D 

/CRLF 

2C23 

85  EO 

880 

LDW 

-1 

2C24 

206F 

881 

JSX 

TYPO 

2C2  5 

5592 

882 

D 

/MRG 

2C2  6 

0100 

883 

CLR 

2C27 

206F 

884 

JSX 

TYPO 

2C2  8 

54C8 

885 

D 

/CRLF 

2C29 

85  El 

886 

LDW 

=  8 

2C2A 

2438 

887 

JSX 

PCNTR 

2C2B 

2B4B 

888 

D 

MHC+8 

2C2C 

0100 

889 

CLR 

2C2D 

206F 

890 

JSX 

TYPO 

2C2E 

54CS 

891 

D 

/CRLF 

2C2F 

85  El 

892 

LDW 

=  8 

2C3  0 

2438 

893 

JSX 

PC'NTR 

2C31 

2E79 

39  4 
895    * 

D 

MC  +  8 

2C32 

85  DB 

896 

LDW 

=  1 

2C3  3 

206F 

897 

JSX 

TYPO 

2C34 

54C8 

898 

D 

/CRLF 

2C35 

93  E5 

399 

EXIT 

PRCNT 

2  03  6 

2800 

MERGE   COUNTS 


9  00 
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FAULT   MONITOR      #21 


PAGE      30 


901     'FAULT    MONITOR      #21 
9  02    * 

903  *      CONVERT  AND    PRINT  LINE   OF  COUNTS 

904  * 

905  *         CALL: 

906  *  JSX         PCNTR       (LOCAL    PAGE) 

907  *(0)  D  ADDRESS    END   OF  COUNTS+l 

908  *(1 )  RETURN 

909  * 

910  *      ACCUMULATOR  —  NUMBER    OF   WORDS   PRECEDING    ADDRESS 
91  1    * 


2C37 

0000 

2C3  3 

6437 

912    PCNTR 

SU3R 

2C39 

0110 

913 

CMP 

2C3A 

7385 

914 

STW 

SA1 

2C3B 

8800 

915 

LDW    * 

0 

2C3C 

E5D9 

916 

AND 

=2047 

2C3D 

C3SC 

917 

ORI 

LDWX 

2C3E 

7442 

913 

STW 

LDW1 

2C3F 

9385 

919 

LDX 

SA1 

2C40 

920    CONT 

EQU 

$ 

2C40 

6385 

921 

STX 

SA1 

2C41 

0040 

922 

SLM 

2C42 

0A10 

923   LDW1 

NOP 

2C43 

219F 

924 

JSX 

CNVBD 

2C44 

21  E8 

925 

JSX 

SDCHAR 

2C45 

0003 

926 

D 

3 

2C46 

5711 

927 

D 

/NUMR+I 

2C47 

0100 

928 

CLR 

2C43 

206F 

929 

JSX 

TYPO 

2C49 

5710 

930 

D 

/NUMR 

2C4A 

9385 

931 

LDX 

SA1 

2C43 

04  01 

932 

IXS 

1 

2C4C 

1440 

933 

J  MP 

CONT 

2C4D 

9437 

934 

EXIT 

PCNTR, 1 

2C4E 

2801 

935 
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PAG! 


31 


2C4F 
2C50 
2C51 
2C52 

2C53 
2C54 
2C55 
2C56 
2C5  7 
2C5S 
2C59 
2C5A 

2C5C 
2C5D 


2C5E 
2e5F 
2CS0 
2CSI 
2C62 
2CS3 
2C64 


2C65 
2C66 
2C67 
2C68 
2C69 
2C6A 
2CSB 
2  CSC 
2C6D 

2C6E 
2C6F 
2C7  0 
2C71 
2C72 

2C73 
2C7  4 
2C75 
2C76 
2C7  7 
2C78 


JJ33 
544F 
95E2 

2C53 
33  1  D 
E311 
7B1  1 
SB  1  D 
0120 
EB15 
7B15 
CHI  1 
7L>19 
0501 
1453 


003F 
26  E3 
3J03 
0000 
335C 
1465 
MBS 


0100 
7399 
739B 
739A 
8319 
E5E3 
F5E3 
0360 
7399 

83  IB 
E5E4 
F5E4 
0360 
739A 

83  IB 
E5D7 
7398 
831  A 
E5E5 
C398 


936 
937 
933 
939 
S40 
941 


'FAULT  MONITOR   #22 

* 

*  FAULTS 


CRITICAL    FAULTS 


9  42 
943 
944 
945 
946 
9  47 
943 
949 
950 
951 
9  52 
953 
954 
955 
956 

957  * 

958  * 

959  * 
960 


C  FAULT        SUBR 


CFL 


LDX 
SLM 
EQU 
LOW 
AND 
STW 
LDW 
INV 
AND 
STW 
ORI 
STW 
DXS 
J  MP 


CHECK    TIME 
CUSC 


=2 


*  SWI 

*  CSFO 

*  CSFO 

*  SWI 


961    CCLK 

9  62    CCMT 

963    CTIM 

964 

965 

966    * 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

9  30 

981 

SS2 

9  33 

984 

985 

986 

987 

988 

9  89 

990 


D 
D 
D 

J  MP 
J  MP 


CSFD 

CSFD 

CSFO 

CSF 

1 

CFL 


0 
0 
60 

$+2 
CFCXT 


CRITICAL    STUCK    ON 


CRITICAL    DEAD 


SEC    I  NTERVAL 


GROUP    SUMMARIES 


CLR 

STW 

FAB 

STW 

RA3 

STW 

MAB 

LDW 

CSF      FREEWAY   SENSORS 

AND 

=  163  83 

CMW 

=  163  83 

SEQ 

STW 

FAB          1 

"REEWAY   ALL    IN 

LDW 

CSF+2 

MERGE  AREA 

AND 

=32640 

CMW 

=32640 

SEQ 

STW 

MAB 

LDW 

CSF+2 

RAMP 

AND 

=  4 

STW 

SCR5 

LDW 

CSF+1 

AND 

=  4083 

ORI 

SCR5 

278 


FAULT 

MONITOR      #22 

2C79 

7398 

991 

STW 

SCR5 

2C7A 

8319 

992 

LDW 

CSF 

2C7B 

E5E6 

993 

AND 

=X'8000' 

2C7C 

C398 

994 

ORI 

SCR  5 

2C7D 

F5E7 

995 

CMW 

=-28681 

2C7E 

0860 

996 

SEQ 

2C7F 

7393 

997 
998 

STW 

RAB 

i'o  r. 


32 


FAULT    MONITOR      #23 


PA3E      33 


999 

'FAULT 

MONITOR 

#23 

1000 

* 

1001 

* 

RAMP 

CRITICAL 

1002 

* 

2C80 

S39B 

1003 

LDW 

RAB         1  F  ALL   BAD   ASSUME 

2C81 

0800 

1004 

SAZ 

DUE    TO   LACK    OF    TRAFFIC 

2C82 

14  84 

1005 

J  MP 

$-i-2 

2C83 

14A2 

1006 
1007 

* 

J  MP 

MC  FAULT 

1008 

* 

• 

1    R3&R  '.    Vi  LUJ     .  ,'     '      •  )«  ir-ii; 

1009 

* 

2C84 

831  A 

1010 

LDW 

CSF+1 

2C8  5 

E5E8 

101  1 

AND 

=  128 

2C86 

739S 

1012 

STW 

SCR5 

2C87 

831E 

1013 

LDW 

CSF+2 

2  CSS 

E5D7 

1014 

AND 

=  4 

2C89 

C393 

1015 

ORI 

SCR  5 

2C8A 

F5E9 

1016 

CMW 

=  132 

2C8B 

0870 

1017 

SNE 

2C8C 

MBA 

1018 
1019 

* 

J  MP 

CFAIL 

1020 

* 

3   R6B+!    >A 

1021 

* 

2C8D 

1022 

C  F3  CH  K 

EQU 

$ 

2C8D 

831 A 

1023 

LDW 

CSF+1 

2C8E 

E5EA 

1024 

AND 

=  1536 

2  CSF 

0800 

102  5 

SAZ 

2C90 

MBA 

1026 
102  7 

J  MP 

CFAIL 
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1028 

'FAULT 

MONITOR 

#24 

1029 

* 

1030 

* 

5 

Rll 

NO    RAMP    TRAFFIC    MASK 

1031 

* 

2C91 

1032 

CF5CHK 

EQU 

$ 

2C91 

83  1  A 

1033 

LDW 

CSF+1 

2C92 

0330 

1034 

SAO 

2C93 

1495 

1035 

J  MP 

CF6CHK      NEXT 

2C9  4 

14BA 

1036 
1037 

* 

J  MP 

CFAIL 

1038 

* 

6 

Rl, 

R2  f   R3 

(2    OF   5)    COUN 

1039 

* 

2C9  5 

1040 

CF6CHK 

EGU 

$ 

2  C9  5 

S31A 

1041 

LDW 

CSF+1 

2C9  6 

E5E3 

1042 

AND 

=2304 

2C97 

7398 

1043 

STW 

SCR  5 

2C98 

83  IB 

1044 

LDW 

CSF+2 

2C9  9 

E5D7 

104  5 

AND 

-4 

2C9A 

C39S 

1046 

ORI 

SCR  5 

2C9B 

F5ZB 

104  7 

CMW 

:2304 

2C9C 

osso 

1048 

SEQ 

2C9D 

F5EC 

1049 

CMW 

=2052 

2C9E 

0860 

1050 

SEQ 

2C9F 

F5ED 

1051 

CMW 

=260 

2  CA  0 

0870 

1052 

SNE 

2CA1 

14BA 

1053 
1054 

* 

J  MP 

CFAIL 

1055 

* 

4 

Ml  - 

M5    MERGE  ARFA    C0MTR01 

1056 

* 

2CA2 

1057 

MCFAULT 

EQU 

$ 

2CA2 

839A 

1058 

LDW 

MAB 

2CA3 

0800 

1059 

SAZ 

20ft  4 

MA6 

1060 

J  MP 

$+2 

2  CAS 

14AA 

1061 

J  MP 

FCFAULT 

2CA6 

831B 

1062 

LDW 

CSF+2 

2CA7 

E5EE 

1063 

AND 

=3968 

2CA8 

0800 

1064 

SAZ 

2CA9 

MBA 

1065 
1066 

* 

J  MP 

CFAIL 

1067 

* 

2 

F4A 

-FIB    FREEWAY    SENSOR 

1068 

* 

2CAA 

1069 

FCFAULT 

EQU 

$ 

2CAA 

8399 

1070 

LDW 

FAB 

2  CAB 

0800 

1071 

SAZ 

2CAC 

MAE 

1072 

J  MP 

$+2 

2  CAD 

14B2 

1073 

J  MP 

CFCND 

2CAE 

8319 

1074 

LDW 

CSF 

2CAF 

E5EF 

1075 

AND 

=16320 

2CB0 

0800 

1076 

SAZ 

2CB1 

MBA 

1077 
1078 

* 

J  MP 

CFAIL 

2CB2 

1079 

CFCND 

EQU 

$ 

2CB2 

85F0 

1080 

LDW 

=  -1 

2CB3 

95DE 

1081 

LDX 

=  11 

2C34 

0040 

1082 

SLM 

2CB5 

1083 

CSFflR 

EQU 

S 

2CB5 

7B1  1 

1084 

STW   * 

CSFO 

CHECK 
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FAULT 

MONITOR      #24 

2CB6 

0501 

1085 

DXS 

1 

2CB7 

14B5 

1086 

J  MP 

CSFCLR 

2  CBS 

1087    CFCXT 

EQU 

$ 

2  CBS 

94  4F 

1088 

EXIT 

C  FAULT 

2CB9 

2800 

PAGE      35 


1089 


FAULT    MONITOR      #25 


PAGE      36 


1090 

'FAULT 

MONITOR 

#25 

1091 

* 

1092 

*    CRITICAL    SENSOR    HAS 

1093 

* 

2CBA 

1094 

CFA1L 

EQU 

$ 

2CBA 

8319 

1095 

LDW 

CSF 

2CBB 

E5EF 

1096 

AND 

=16320 

2CBC 

7319 

1097 
1098 

* 

STW 

CSF 

2CBD 

831A 

1099 

LDW 

CSF+1 

2CBE 

E5F1 

1  100 

AND 

=  5969 

2CBF 

731A 

1  101 
1  102 

* 

STW 

CSF+1 

2  CCO 

831B 

1103 

LDW 

CSF+2 

2CC1 

E5F2 

1104 

A  ND 

=3972 

2CC2 

731B 

1  105 

1  106 

* 

STW 

CSF+2 

2CC3 

0100 

1107 

CLR 

2CC4 

731C 

1108 
1109 

* 

STW 

CSF+3 

2CC5 

0100 

1  1  10 

CLR 

2CC6 

205B 

1111 

JSX 

PRRG 

2CC7 

54  CC 

1  1  12 

D 

/CFMSG 

2  CCS 

23C8 

11  13 

JSX 

PST 

2CC9 

2B19 

1114 

D 

CSF 

2  CCA 

20DB 

11  15 

JSX 

CD1SP 

2CCB 

1003 

11  16 
1117 

J  MP 

STOP 
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FAULT    MONITOR      #26 


PAGE      37 


1118 

'FAULT 

MONITOR 

#26 

11  19 

* 

1120 

1    in   1 

*    NON  CRITICAL 

FAULTS 

2CCC 

3333 

11^1 

♦ 

2CCD 

64  CC 

1122 

NCFAULT 

SUBR 

2CCE 

338F 

1123 

CUSC 

2CCF 

26E8 

2CD0 

3333 

1  124 

NCLK 

D 

0 

2CD1 

3333 

1125 

NCNT 

D 

0 

2CD2 

0334 

1  126 

NTIM 

D 

900       15    WIN 

INTERVAL 

2CD3 

14D5 

1127 

J  MP 

$+2 

2CD4 

14F3 

1128 
1  129 

* 

J  MP 

NCFXT 

2CD5 

3033 

1  130 

LDW 

I  TYP 

2CD6 

0303 

i  131 

SAZ 

2CD7 

14F2 

1  132 
1133 

* 

J  MP 

NCFND 

2  CDS 

B30D 

1  134 

LDW 

SWF      SELECT 

EITS    OF 

2CD9 

E5F3 

1135 

AND 

=-16585 

2CDA 

733D 

1  136 

STW 

SWF 

2CDD 

7333 

1  137 
1133 

* 

STW 

SCR2 

2  CDC 

333E 

1  139 

LDW 

SWF+1 

2CDD 

E5E5 

1  140 

AMD 

=  4083 

2CDi 

733E 

1141 

STW 

SWF+1 

2  CDF 

C3  83 

1  142 

OR  I 

SCR2 

2CE0 

7  333 

1143 
1  144 

* 

STW 

SCR2 

2CE1 

S33F 

1  145 

LDW 

SWF+2 

2CE2 

E5F4 

1  146 

AND 

=52644 

2CE3 

733F 

1147 

STW 

SWF+2 

2CE4 

C3  33 

1  148 

ORI 

SCR2 

2CE5 

7383 

1  149 
1150 

* 

STW 

SCR2 

2CI6 

S310 

1151 

LDW 

SWF+3 

2CE7 

E5F5 

1152 

AND 

=-14338 

2CE3 

7313 

1153 

STW 

SWF+3 

2CE9 

C3SB 

1154 

ORI 

SCR2 

2CEA 

3800 

1155 

SAZ 

2CEB 

14ED 

1156 

J  MP 

$+2 

2CEC 

14F2 

1157 
1158 

* 

J  MP 

NCFND 

2CED 

0100 

1159 

CLR 

2CEE 

205B 

1160 

JSX 

PRRG 

2CEF 

54E6 

1161 

D 

/NCFMSG 

2CF0 

23C8 

1162 

JSX 

PST 

2CF1 

2B0D 

1163 

D 

SWF 

2CF2 

1  164 

NCFND 

EQU 

$ 

2CF2 

85  FO 

1165 

LDW 

=  -l 

2CF3 

95DE 

1  166 

LDX 

=  11 

2CF4 

0040 

1167 

SLM 

2CF5 

I  168 

NCFCL1 

ECU 

$ 

2CF5 

7B05 

1169 

STW   * 

SWO 

2CF5 

0501 

1170 

DXS 

1 

2CF7 

14F5 

1171 

J  MP 

NCFCL1 

2CF8 

1  172 

NCFXT 

EQU 

$ 

INTEREST 
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FAULT    MONITOR      #26  PAGE      38 

2CF8    94  CC       1173  EXIT      NC  FAULT 

2CF9    2800 

1174 


FAULT  MONITOR      #27  PAGE      39 

1  175    'FAULT    MONITOR      #27 

1  176   * 

1 177    *    SENSOR    INPUT 

1  178   * 
2CFA    0000 

2CF3    64FA  1179    SIMP  SUBR 

2CFC    02F6  1180  DIN  15,6        SENSOR    WORDS    1 

2CFD  25BF  1  181  JSX  STP 

2CFE   0000  1 182  D  0 

2CFF   02F5  1  1 83  DIN  15,5 

2D00   253F  1184  JSX  STP 

2D01    0001  1185  D  1 

2D02    02F3  1  186  DIN  15,3         3 

2D03   253F  1  187  JSX  STP 

2D04    0002  1188  D  2 

2D05    02F7  1  189  DIN  15,7         4 

2D06   25BF  1190  JSX  STP 

2D07    0003  1191  D  3 

2D08    OOSF  1192  CUSC 
2D09    26  £8 

2D0A    0000  1  193    ACLK  D  0 

2D0B    0000  1  194   ACNT  D  0 

2  DOC    0E10  1195   A  TIM  D  3600      1    HR 

2D0D    150F  1196  JMP  $+2 

2D0E    1519  1  197  JMP  NHR 

2D0F    8003  H98  LDW  I TYP   IS    TYPE-OUT    ON? 

2D10    0800  1199  SAZ  SKIP    IF   GO 

2D11    1513  12  00  JMP  $+2 

2D12   23E6  1201  JSX  PRCNT 

2D1  3   95F6  1202  LDX  =45 

2D1  4    0100  1203  CLR 

2D15    0040  1204  SLM 

2D16  1205   ACLR  EQU  $ 

2D16    7B29  1206  STW    *  FHC      ZERO   HOUR    COUNTS 

2D17    0501  1207  DXS  1 

2DI  8    1516  1208  JMP  ACLR 

2D19  1209    NHR  EQU  $ 

1210 
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FAULT    MONITOR      #28  PAGE      40 


1211 

t 

FAULT 

MONITOR      #28 

1212 

* 

1213 

* 

ACTIVATIONS 

1214 

* 

SENSOR    COUNTS    ORDERED  SAME  A 

1215 

* 

MSG 

SECTION 

1216 

* 

2D19 

95F7 

1217 

LDX 

=-14      FOR    FREEWAY 

2D1  A 

8321 

1218- 

LDW 

SWA 

2  DIB 

0040 

1219 
1220 

* 

SLM 

2D1  C 

1221 

ACT14 

EQU 

$        F7A-F1B 

2  D1C 

0830 

1222 

SAO 

2D1  D 

1526 

1223 

JMP 

N0BMP1 

2D1  E 

7385 

122.4 

STW 

SA1 

2D1  F 

8B37 

1225 

LDW    * 

FHC+14 

2  ceo 

A5DB 

1226 

ADD 

-I 

2D21 

7B37 

1227 

STW   * 

FHC+14 

2D22 

8B65 

1228 

LDW   * 

FC+14 

2C23 

A5DB 

1229 

ADD 

=  1 

2E24 

7B65 

1230 

STW   * 

FC  +  14 

2D25 

8385 

1231 

LDW 

SA1 

2D26 

1232 

NOB 

EQU 

$ 

2D26 

0A01 

1233 

SRL 

1 

2D27 

0401 

1234 

IXS 

1 

2EE8 

151C 

1235 
1236 

JMP 

ACT1  4 
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FAULT   MONITOR      #29 
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1237    'FAULT 

MONITOR 

#29 

1238   * 

1239    * 

2De9 

8324 

1240 

LDW 

SWA+3 

FOF 

2D2A 

258F 

1241 

JSX 

FIT 

2DeB 

0019 

1242 

D 

25 

2D2C 

0A1  1 

1243 

SLL 

1 

FOC 

2DeD 

258F 

1244 

JSX 

FIT 

2D2E 

0013 

1245 

D 

19 

2D2F 

0A14 

1246 

SLL 

4 

FOA 

2D3  0 

25SF 

1247 

JSX 

FIT 

2D31 

OOOE 

1248 

D 

14 

2D52 

0A1  1 

1249 

SLL 

1 

FOB 

2D33 

258F 

1250 

JSX 

FIT 

2D34 

OOOF 

1251 

D 

15 

2D3  5 

0A11 

12  52 

SLL 

1 

F4D 

2D36 

25SF 

1253 

JSX 

FIT 

2D37 

0011 

1254 

D 

17 

2D3  8 

0A11 

1255 

SLL 

1 

F4C 

2D39 

258F 

1256 

JSX 

FIT 

2D3A 

0010 

1257 

D 

16 

2D3B 

0A11 

1258 

SLL 

1 

F4F 

2D3C 

258F 

1259 

JSX 

FIT 

2D3D 

0016 

1260 

D 

22 

2D3E 

0A1  1 

1261 

SLL 

1 

F4E 

2D3F 

253F 

1262 

JSX 

FIT 

2D40 

0015 

12  63 

D 

21 

2D41 

0A1  1 

1264 

SLL 

1 

FID 

2D42 

253F 

12  65 

JSX 

FIT 

2D43 

0017 

1266 

D 

23 

2D44 

0A11 

1267 

SLL 

1 

F1C 

2D4  5 

258F 

1268 

JSX 

FIT 

2D46 

0012 

1269 

D 

18 

2D47 

0A1  1 

1270 

SLL 

1 

FOE 

2D48 

258F 

1271 

JSX 

FIT 

2D49 

0018 

12  72 

D 

24 

2D4A 

0A11 

1273 

SLL 

1 

FOD 

2D4B 

258F 

1274 

JSX 

FIT 

2D4C 

0014 

1275 
1276 

D 

20 
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FAULT   MONITOR      #30  PAGE      42 

1277    'FAULT    MONITOR      #30 


1278   * 

1279    * 

FOR   RAMP 

1280   * 

2D4D 

8323 

1281 

LDW 

SWA+2 

R3 

2D4E 

0A02 

1282 

SRL 

2 

2D4F 

259F 

1283 

JSX 

RIT 

2D50 

0009 

1284 

D 

9 

2D51 

8321 

1285 

LDW 

SWA 

R9 

2D52 

0A51 

1286 

SLC 

1 

2D53 

259F 

1287 

JSX 

RIT 

2D5  4 

0002 

1288 

D 

2 

2D55 

8322 

12  89 

LDW 

SWA+1 

Rl  1 

2D56 

259F 

1290 

JSX 

RIT 

2D5  7 

0000 

1291 

D 

0 

2D5  8 

0A01 

1292 

SRL 

1 

RIO 

2D59 

259F 

1293 

JSX 

RIT 

2D5A 

0001 

1294 

D 

1 

2D5B 

0A03 

1295 

SRL 

3 

R8 

2D5C 

259F 

129  6 

JSX 

RIT 

2D5D 

0003 

1297 

D 

3 

2D5E 

0A01 

1298 

SRL 

1 

R7 

2D5F 

259F 

1299 

JSX 

RIT 

2D60 

0004 

1300 

D 

4 

2D61 

0A01 

1301 

SRL 

1 

R5 

2D62 

259F 

1302 

JSX 

RIT 

2D63 

0007 

1303 

D 

7 

2D64 

0A01 

1304 

SRL 

1 

R4 

2D65 

259F 

1305 

JSX 

RIT 

2D66 

0008 

1306 

D 

8 

2D67 

0A01 

1307 

SRL 

1 

R2 

2D63 

259F 

'308 

JSX 

RIT 

2D69 

OOOA 

1309 

D 

10 

2D6A 

0A01 

1310 

SRL 

1 

R6A 

2DS8 

259F 

131  1 

JSX 

RIT 

2  DSC 

0006 

1312 

D 

6 

2D6D 

0A01 

1313 

SRL 

1 

R6B 

2D6E 

259F 

1314 

JSX 

RIT 

2D6F 

0005 

1315 

D 

5 

2D70 

0A01 

1316 

SRL 

1 

Rl 

2D71 

259F 

1317 

JSX 

RIT 

2D72 

OOOB 

1318 
1319 

D 

11 
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1320  'FAULT    MONI TOR  #31 

1321  * 

1322  *    FOR    XZR&E   AREA 

1323  * 

2D73    3323  1324  LOW  S'^'A  +  2      M8 

2D74    0A1  1  1325  SLL  1 

2D75   25AF  1326  JSX  MI  T 

2D76    0007  1327  D  7 

2D77    0A1  1  1328  SLL  1                 M7 

2D7S   25AF  1329  JSX  MI  T 

2D79    0006  1330  D  6 

2D7A    0A11  1331  SLL  1                M6 

2D7B   25AF  1332  JSX  MIT 

2D7C    0005  1333  D  5 

2D7D   0A1  1  1334  SLL  1                 Ml 

2D7E  25AF  1335  JSX  MI  T 

2D7F    0000  1336  D  0 

2D60    OAl  1  1337  SLL  1                M5 

2D81    25AF  1338  JSX  MIT 

2D82    0004  1339  D  4 

2D83    OAl  1  1340  SLL  i                M4 

2D84   25AF  1341  JSX  Ml  T 

2D85    0003  1342  D  5 

2D86    OAl  1  1343  SLL  1                M3 

2D37    25AF  1344  JSX  Ml  I 

2D88   0002  1345  D  2 

2D89    OAl  1  1346  SLL  1                M2 

2D3A    25AF  1347  JSX  MIT 

2D8B    0001  1348  D  1 

2D8C   94FA  1349  EXIT  SINP 

2D8D  2800 

1350 
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FAULT    MONITOR      #52 


PAG 


J  c 


44 


2D6E 
2D5F 
2D90 
2091 
2.JJ2 
2DS5 
2  094 
2D95 
2D9S 
2097 
2D9S 
2D99 
2D9A 
2DSB 
2D9C 


00  0  0 
658E 
032  0 
2801 
7585 
9S00 
0040 
8B29 
A5D5 
7329 
8B57 
A  5  DB 
7B57 
3535 
953E 
2301 


2D9E 

0000 

2D9F 

659E 

16  56 

2DA0 

0330 

1387 

2  DAI 

2801 

1388 

2DA2 

7355 

13  39 

2DA3 

9800 

1390 

2  DA  4 

0040 

1391 

2  DA  5 

83  4B 

1392 

2  DA  6 

A5DB 

1  39  3 

2  DA  7 

7B4P 

1394 

2  DA  3 

3B79 

1395 

2DA9 

A5DB 

1396 

2DAA 

7B79 

1397 

2  DAB 

8385 

139S 

2DAC 

959E 

1399 

2  DAD 

2801 

351  'FAULT    MONI  TOR      #32 

3  52  * 

355  *    FREEWAY    COUNT    INCREMENTATION 

354  * 

355  *  CALL: 

356  *  JSX         FIT      (LOCAL    PAGE) 

357  *(0)  D  0   RELATIVE    INDEX   TO    COUNT    WORD 
35?  *(1  )              RETURN 

359  * 

360  *         ACCUMULATOR—SIGN   BIT-     1    INDICATES    ACTIVATION 


FI 


5  62 
363 
3  6* 
■j  \j  ^ 
566 
567 
3  68 
569 
570 
571 
372 
373 
574 
575 


576  * 

577  *    RAMP    COUNT   INCREMENTATION 

578  * 

579  *  CALL: 

530  *  JSX        RIT    (LOCAL   PAGE) 

381  *(0)  D  0  RELATIVE   INDEX   TO    COUNT   WORD 

582  *(1  )  RETURN 

585  * 

534  *      ACCUMULATOR—RIGHT    END    =    1    INDICATES    ACTIVATION 

585  * 


s  a  :•: 

ACTI  VAT  ED 

JSX    * 

i       NO,    BAC 

STW 

SA1 

LDX    * 

0 

SLM 

LDW    * 

FHC 

ADD 

-1 

S  TW    * 

FHC 

LDW    * 

FC 

ADD 

=  1 

STW    * 

FC 

LDW 

SA1 

EXIT 

FIT,1 

RIT 


SUBR 

SAO 

ACTI  VATED? 

JSX   * 

1       NOPE,   BACK   GUIO 

S  TW 

SA1 

LDX   * 

0 

SLM 

LDW    * 

RHC 

ADD 

=  1 

STW    * 

RHC 

LDW    * 

RC 

ADD 

=  1 

STW    * 

RC 

LDW 

SA1 

EXIT 

RIT,  1 

1400 
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'AULT    MONITO: 


d  1  1 


PAGE      45 


1401  'FAULT    MONITOR      #33 

14  02  * 

1403  *    MERGE    COUNT   INCREMENTATION 

1404  * 

1405  *  CALL: 

UOS  *  JSX         MIT       (LOCAL    PAGE) 

1407  *(0)  D  0   RELATIVE    INDEX   TO    COUNT    WORD 

14  08  *(1)  RETURN 

1409  * 

1410  *      ACCUMULATOR—SIGN  BIT    =    1    INDICATES   ACTIVATION 

1411  * 


2  DAE 

v-i  0  00 

2DAF 

65'AE 

1412 

2DB0 

os20 

1413 

2D31 

2S01 

1414 

2DB2 

7  3  35 

1415 

2DB3 

ssoo 

1416 

2D64 

0040 

1417 

2DB5 

SB  43 

1418 

2  DBS 

A5D3 

1419 

2D37 

7B43 

1420 

2  DBS 

83  71 

1421 

2DB9 

A5DB 

U22 

2  DBA 

7371 

1423 

2DBB 

8385 

1424 

2DBC 

9  5AE 

1425 

2DBD 

2S01 

'•II  T 


SUBR 

SAM 

USX 

STW 

LDX 

SLM 

LDW 

ADD 

STW 

LDW 

ADD 

STW 

LDW 

EXIT 


ACTIVATED? 

*  1         NOPE,    BACK   QUICK 
SA1 

*  0 

*  MHC 
=  1 

*  MHC 

*  MC 
=  1 

*  MC 
SA1 
MIT.l 


1426 
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FAULT    MONITOR      #34  PAGE      46 

1427  'FAULT    MONITOR      #34 

1428  * 

1429  *    SENSOR    INPUT  PROCESSING 

1430  * 

1431  *         CALL: 

1432  *  STP 

1433  *(0)  D  O-RELATIVE   INDEX   TO   SENSOR    WORD 

1434  *(1)  RETURN 

1435  * 
2DBE   0000 

2DBF   65BE  1436   STP  SUBR 

2X0   9800  1437  LDX   *    0        INDEX 

2DC1    0040  1438  SLM 

2DC2    7B1D  1439  STW   *    SWI      INPUT    TABLE 

2DC3    EB05  1440  AND   *    SWO      STUCK    ON 

2DC4   7B05  1441  STW    *   SWO 

2DC5  8B25  1442  LDW   *   SWH      ACTIVATIONS 

2DC6    0120  1443  INV 

2DC7    EB1  D  1444  AND   *    SWI 

2DCS    7B2 1  1445  STW    *    SWA 

2DC9    8B1D  1446  LDW   *    SWI      INPUT    NOW  BECOMES    HISTORY 

2DCA    7B25  1447  STW    *   SWH 

2DCB    0120  1448  INV  DEAD    ONES 

2DCC    EB09  1449  AND   *    SWD 

2DCD   7B09  1450  STW   *   SWD 

2DCE   CB05  1451  ORI    *   SWO      SUMMARY    OF   FAULTS 

2DCF   7B0D  1452  STW    *   SWF 

2DD0   95BE  1453  EXIT      STP,  1 

2DD1  2801 

1454  * 

1455  * 

1456  * 

1457  END 

2DD2  0067 

2DD3  0017 

2DD4  270F 

2DD5  01  F4 

2DD6  OOOF 

2DD7  0004 

2DD8  FFFC 

2DD9  07FF 

2DDA  FFFO 

2DDB  0001 

2DDC  OOOD 

2DDD  OOOE 

2DDE  OOOB 

2  DDF  OOOC 

2  DEO  0007 

2  DEI  0008 

2DE2  0002 

2DE3  3FFF 

2DE4  7F80 

2DE5  0FF3 

2DE6  8000 

2DE7  8FF7 

2DE8  0080  2go 


FAULT    MONITOR      #54 
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2DE9 

0084 

2DEA 

0600 

2  DIB 

0900 

2  DEC 

0804 

2DED 

0104 

2  DEE 

0F80 

2DEF 

3FC0 

2DF0 

FFFF 

2DF1 

0F81 

2DF2 

0F84 

2DF3 

BFFF 

2DF4 

7F84 

2DF5 

C7FE 

2DF6 

002  D 

2DF7 

FFF2 

NO    ERRORS 
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FAULT   MONITOR      #34 
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ACLK 

ACT14 

BCRG 

BMSGS 

C6RG 

CBLG 

CDIS? 

CF5CHK 

CFCND 

CFL 

CIXG 

CNV2 

CNVBD 

CNVJ 

CRSG 

CSFO 

CUSC 

ERG 

FC 

FIRY 

FNVY 

FTTY 

FWY1 

1E06 

LDW1 

LOOP 

M4RG 

M9R3 

MB  R  G 

MDBG 

MI  NADD 

MMSGS 

NCFAULT 

NCFXT 

NHR 

N  TI  M 

PASTIME 

PERG 

PNRG 

PRRG 

PST2  0 

RC 

RHC 

SA1 

SCR  4 

SDCB 

SDCP 

SINP 

SM02 

S  .45  3 

STOP 

SVD 

S  /.'  3 

TIRG 

TWA  IT 

UFO  2 

ZERG 

PAS? 


2  DOA 

2D1  C 

2B9D 

299A 

2BAE 

2BA1 

2SDB 

2C91 

2CB2 

2C53 

2BA8 

29AC 

299  F 

29C7 

280S 

2B1  1 

3EE8 

28EC 

2B57 

OBSF 

OBAB 

0B88 

2AA5 

2  3BD 

2C42 

29  DS 

2A2B 

2A42 

2A4D 

2A58 

29  E6 

2996 

2  CCD 

2CF3 

2  019 

2CD2 

2913 

2  309 

2BC3 

2  55B 

2BD3 

2B79 

2B4B 

2E85 

2B97 

2A04 

2A0S 

2CFB 

29  16 

2933 

2803 

2E09 

2505 

2BC5 

2  33  F 

2966 

294D 


ACLR 

ATIM 

BEGT 

C1RG 

C8RG 

CCLG 

CDOT 

CFSCHK 

CFCXT 

CFMSG 

CJ 

C  NV3 

CNVC 

CONT 

CSF 

CTFG 

CWRD1  1 

ERRCH 

FCFAULT 

FIT 

FRRG 

FUNG 

HWA1 

IRRG 

LDW2 

M1RG 

M5RG 

MA  3 

MC 

MDRG 

MINLC 

MODE 

NCFCL1 

NCLK 

n  M  "^  -> 

.1  ■  iu  l 

NUMR 
PCDN 

PFRTN 
PROO 
PS1 
PTRG 

REDO 

RIT 

SARG 

SCR  5 

SDCC 

SECLC 

SJ 

SM5  0 

SORG 

STP 

SWF 

Tl 

TMREQ 

TYPEFL3 

UF03 


2D1  6 
2D0C 
0020 

2BAB 

2BAF 

2BA2 

2BA7 

2C95 

2CB8 

2A66 

2315 

29B8 

29C5 

2C40 

2B19 

2804 

2B.A6 

0046 

2CAA 

2D8F 

2BB3 

2BB6 

2B38 

28A6 

2BD1 

2A1  9 

2A3  0 

2E9A 

2B71 

2A58 

2A1  5 

1802 

2CF5 

2CL0 

2976 

2B3  3 

2857 

28C3 

287C 

2387 

2  84A 

29D7 

2D9F 

2800 

2B9  8 

2A0  7 

2A  1  7 

£31  F 

292S 

2  30A 

2D5F 

2B0D 

2883 

2302 

1617 


ACNT 

BC5G 

BING 

C3RG 

C9RG 

CCLK 

CDRG 

CFAIL 

CFEG 

CHLG 

C  M2G 

CNV4 

CNVD 

CRLF 

CSFCLR 

CTIM 

DERG 

FAB 

FER.G 

FMODE 

FSTG 

FWAG 

HWA2 

1TYP 

LDWX 

M2RG 

M6RG 

MARG 

MC  FAULT 

MERG 

MIT 

MRG 

NCFMSG 

NCNT 

N  OB  MP  1 

NXTCH 

PCHK 

PLDM2 

PRCNT 

PST 

PURTN 

RERG 

RMP 

SCR2 

SD3K 

SDCE 

SEC  NT 

SMOO 

SM51 

SPOO 

STPRMT 

SWH 

T2 

T MS  IMP 

TYPO 

UF035 
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2D0B 

2B9F 

2A0F 

2EAC 

2BB0 

2C60 

2BA3 

2CBA 

2BA5 

2805 

2BA9 

29C0 

29C8 

2A64 

2CE5 

2C62 

2BB1 

2B99 

2BB2 

299C 

2BB4 

2BB7 

2BBC 

2803 

2B8C 

2A  1  F 

2A3  7 

2A48 

2CA2 

2A5E 

2DAF 

2AC9 

2A73 

2CD1 

2D26 

2893 

284F 

2839 

2BE6 

2BC8 

28D1 

0027 

2AE1 

2B85 

29  EE 

2A0  5 

29CD 

2935 

292F 

2920 

23  3D 

2B2  5 

2892 

2A  1  5 

286F 

2994 


ACRG 
BCNT 

BMSG 

C4RG 

CARG 

CCNT 

CF3  CHK 

C  FAULT 

CFFG 

CHSG 

CNV1 

CNVA 

CNVI 

CRLG 

CSFD 

CURG 

DONE 

FBMSK 

FHC 

FMTST 

FTRG 

FWY 

IE01 

K51F 

LKRG 

M3RG 

M7RG 

MAXIT 

MCRG 

MHC 

MMSG 

MSG 

NCFND 

NCTOUT 

NOTND 

OUTCHAR 

PCNTR 

PNC 

PREIN 

PST10 

RAB 

RESfi 

RNTIME 

SCR3 

SDCA 

SDCHAR 

SERG 

SM0  1 

SM52 

STAG 

SWA 

SWI 

TIME 

TRAG 

UF0  1 

WTRG 


2B9C 

2B86 

298B 

2BAD 

2BA0 

2C61 

2C8D 

2C50 

2BA4 

2806 

29AA 

29C4 

29C6 

2807 

2B15 

2BAA 

29  EO 

299D 

2B29 

2976 

2BB5 

2A7B 

28BA 

180C 

2BC2 

2A25 

2A3D 

29A4 

2A52 

2B43 

2975 

2895 

2CF2 

2920 

2886 

2899 

2C38 

287C 

2833 

2BCF 

2B9B 

2BC4 

2B9E 

2B96 

2A03 

29  E8 

2301 

2959 

2943 

2  80F 

2B2  1 

2B1  D 

002  1 

062C 

295? 
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CHECK  AND  UPDATE  SECOND  COUNT  SUBROUTINE 

Provides  a  method  of  counting  seconds  to  provide  needed  time 
keeping  services  beyond  the  131.072  sec.  limit  imposed  by  present 
single  word  time  without  installing  double  word  time  calculations. 

Upon  entry  the  routine  accesses  the  present  system  time  and 
computes  the  elapsed  time  from  the  saved  clock  value  in  the  call (TIME 
and  SUB*0  ).  The  elapsed  time  is  compared  to  counts  of  .002  sec. 
clock  in  a  second  (ONESEC)  and  if  it  is  exceeded  the  second  count 
in  the  call  is  incremented  (-*1)  and  compared  against  the  limit  (-*2) , 
The  clock  value  in  the  call  is  incremented  by  ONESEC  and  returned 
on  second  overflow  and  the  second  count  is  zeored  out  and  the  count 
overflow  returns  (JSX  *3)  taken  for  the  count  exceeded.  The 
non-overflow  return  is  JSX*4. 
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CUSC       J 

\ 


COMPUTE  ELAPSED 
TIME 


TIME  -    (CALL  *  0) 


INCREMENT 
CLOCK  BY  ONESEC 

-*  0  +  ONESEC 


INCREMENT 
SECOND  COUNT 


-*  1  ■  +  1 


A 


/-EXCEEDED. 

-  „*9A  TV- 


ZERO  SECOND 
COUNT 

-*1  <-   0 

"   "    1"" 

f   OVERFLOW  "\ 
V   RETURN  J 


RETURN 


) 


NORMAL 
RETURN 
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CHECK  AND   UPBATE  SECOND   COUNT 
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I 

2 

3 

4 

5 

€ 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 


'CHECK  AND   UPDATE  SECOND  COUNT 


CALL: 

CUSC 

(0)  •  CLOCK 

(1)  D  SECOND  COUNT 

(2)  D  LIMIT     RANGE   0-327(7   SEC 

(3)  RETURN   FOR    COUNT   OVERFLOW 

(4)  RETURN   NORMAL 

CLOCK   IS    .002  SEC   COUNT 

WHEN    500  HAVE  BEEN   COUNTED  SECOND   COUNT 

INCREMENTED  AND  CHECKED  AGAINST   LIMIT 
COUNT  IS  RESET  AND  OVERFLOW   EXIT   TAKEN   IF  SECOND 

COUNT   EXCEEDS   LIMIT 
NOTE:   ACCUMULATOR   IS   NOT  SAVED 


CHECK  AND  UPDATE  SECOND   COUNT 


PAGE 


19 

'CHECK 

AND 

UPDATE  SECOND  COUNT 

0021 

20 

TIME 

EQU 

X*21* 

21 

ORIS 

i   X'3EE8' 

3EE8 

22 

CUSC 

EQU 

$ 

3EE8  0080 

23 

SMB 

TIME 

SYSTEM  TIME 

3EE9   8021 

24 

LDW 

TIME 

3EEA  B800 

25 

SUB 

*   0            . 

-SAVED  CLOCK  AT  LAST  SEC 

3EEB   F6FC 

26 

CMW 

ONES  EC 

>-   1   SEC7 

3 EEC  0840 

27 

SLS 

NO 

3EED  1GEF 

28 

JMP 

$+2 

YES 

3EEE  2804 

29 

JSX 

*   4 

3EEF  8800 

30 

LDW 

*   0 

BUMP  CLOCK    UP 

3EF0  A6FC 

31 

ADD 

ONES  EC 

3EF1    7800 

32 

STW 

*  0 

3EF2   8801 

33 

LDW 

*    1 

I  NCR   SEC   COUNT 

3EF3  A6FD 

34 

ADD 

ONE 

3EF4   7801 

35 

STW 

*    1 

3EF5   F802 

36 

CMW 

*  2 

EXCEED  LIMIT? 

3EF€  0840 

37 

SLS 

NO 

3EF7   16FJ 

38 

JMP 

CUSCOV 

YES 

3EF8  2804 

39 

JSX 

*   4 

NORMAL  RETURN 

3EFJ 

40 

CUSCOV 

EQU 

$ 

3EF9   0100 

41 

CLR 

RESET  SECOND  COUNT 

3EFA    7801 

42 

STW 

*  1 

3EFB  2803 

43 

JSX 

*  3 

3EFC   01  F4 

44 

ONES EC 

D 

500 

3EFD  0001 

45 
46 

ONE 

D 

END 

1 

NO    ERRORS 
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CHECK  AN1  UP1ATE  SECONB  COUNT  PA1E 

CUSC  3EEf     CUSCOV         3EF5     ONE  3EF*     ONESEC  3EFC 

TINE  0021 

PAS? 
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LOAD  AND  DUMP  PROGRAM 

To  add  the  capability  of  bootstrapping  a  magnetic  tape  copy  of 
the  system  the  magnetic  tape  handling  routine  was  modified  so  it 
would  use  only  the  right  byte  in  each  word  for  dumps  and  loads  there- 
by creating  a  bootstrappable  tape. 

For  magnetic  tape  load,  the  storage  of  data  was  changed  to  a 
byte  instruction  (STB*0)  and  the  count  modified  accordingly  (word 
count  doubled) . 

For  magnetic  tape  dump  the  load  instruction  was  changed  (LDB*  0) 
and  the  address  check  adjusted  similar  to  those  for  the  load. 

The  rest  of  the  program  remains  the  same  and  because  the  changes 
were  so  insignificant  no  flow  chart  is  included  for  them. 
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LOAD  AND  DUMP  PROGRAM 


PA6E        1 


1 

'LOAD  AND  DUMP 

PROGRAM 

2 

♦      VERSION  PREPARED   7-18-74 

3 

♦     MODIFIED   12/28/76       JGB 

4 

*          TO  PRODUCE  A  BOOTSTRAPABLE 

5 

*          TO  BOOT  SET  IX   =  X'0028* 

6 

* 

SSO   UP 

7 

* 

SSI    UP 

8 

* 

SS2  DOWN 

9 

* 

SS3    UP 

10 

*       PRESS  STEP 

THEN  RUN 

11 

* 

12 

ORIG 

X^FOO' 

0020 

13 

EXEC 

EQU 

X'20' 

3F00 

8700 

14 

BEGIN 

LDV 

$ 

3F01 

08C0 

15 

SSO 

3F02 

176C 

16 

JMP 

DUMP 

3F03 

08D0 

17 

LOAD 

SSI 

3F04 

1755 

18 

JMP 

MAGLOAD 

3F05 

1708 

19 

JW» 

PLOAD 

3F06 

0020 

20 

CORESTAfi 

X*20* 

3F07 

3FFF 

21 

COREND 

D 

X*3FFF* 

3F08 

03D0 

22 

PLOAD 

DOT 

X'D',0 

3F09 

0100 

23 

CLR 

3F0A 

7751 

24 

STV 

COUNT 

3F0B 

03D9 

25 

LEADER 

DOT 

X'D\9 

3F0C 

02D0 

26 

STAT1 

DIN 

X*D\0 

3FOD 

0A17 

27 

SLL 

7 

3FOE 

0820 

28 

SAM 

3F0F 

170C 

29 

JH» 

STAT1 

3F10 

02  DD 

30 

DIN 

X'D^X'D' 

3F11 

0800 

31 

SAZ 

3F12 

1714 

32 

JMP 

FRONT 

3F13 

170C 

33 

JMP 

STAT1 

3F14 

7753 

34 

FRONT 

STV 

CHAR 

3F15 

8751 

35 

LDV 

COUNT 

3FI6  A7EC 

36 

ADD 

si 

3F17 

7751 

37 

STV 

COUNT 

3F18 

F7ED 

38 

CMV 

s4 

3F19 

0860 

39 

SEQ 

3F1A 

1723 

40 

JMP 

FIVE 

3F1B 

8753 

41 

FOUR 

LDV 

CHAR 

3F1C 

36A4 

42 

STB 

/INDEX 

3F1  D  02D0 

43 

STAT2 

DIN 

X'VfO 

3FIE  0A17 

44 

SLL 

7 

3FIF 

0820 

45 

SAM 

SF20 

171  D 

46 

J* 

$-3 

3F21 

02  DD 

47 

DIN 

X'D'.X'D' 

3F22 

1714 

48 

JMP 

FRONT 

MAG   TAPE 
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PAGE 


50 

'LOAD  AND  DUMP 

PROGRAM 

3F23   F7EE 

51 

FIVE 

CNV 

s5 

3F24   0860 

52 

SEQ 

3F25   1729 

53 

JfT 

ELEVEN 

3F26  8753 

54 

LDV 

CHAR 

3F27  36A5 

55 

STB 

/INDEX+1 

3F28   171  D 

56 

J* 

STAT2 

3F29  F7EF 

57 

ELEVEN 

CMV 

211 

3F2A    0860 

58 

SEQ 

3F2B   172F 

59 

Of* 

TVELVE 

3F2C  8753 

60 

LDV 

CHAR 

3F2D  36A8 

61 

STB 

/LAST 

3F2E  171  D 

62 

J  HP 

STATS 

3F2F  F7F0 

63 

TWELVE 

cmv 

=  12 

3F30  8753 

64 

LDV 

CHAR 

3F31    0870 

65 

SHE 

3F32    1736 

66 

JMP 

$♦4 

3F33  0840 

37 

SLS 

3F34   0000 

68 

HLT 

3F35   1719 

69 

JMP 

STAT2 

3F36  36A9 

70 

STB 

/LAST+i 

3F37  8752 

71 

SETADDR 

LDV 

INDEX 

3F38  0A11 

72 

SLL 

1 

3F39   0130 

73 

CAX 

3F3A  A 754 

74 

ADD 

LAST 

3F3B  B7F1 

75 

SUB 

22 

3F3C   7754 

76 

STV 

LAST 

3F3D  0050 

77 

SGM 

3F3E  02 DO 

78 

STAT3 

DIN 

X'D\0 

3F3F  0A17 

79 

SLL 

7 

3F40  0820 

80 

SAM 

3F41    173E 

81 

JMP 

$-3 

3F42  02DD 

82 

DIN 

X'D'tX'D* 

3F43  3800 

83 

STB   * 

0 

3F44   0401 

84 

IXS 

1 

3F45  0A10 

85 

NOP 

3F46  0140 

86 

CXA 

3F47  F754 

87 

CMV 

LAST 

3F48  0860 

88 

SEQ 

3F49   173E 

89 

90 

JMP 

STAT3 
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91 

*LOA»  AN1  8UMP 

PROGRAM 

3F4A 

0210 

92 

STAT4 

BIN 

X't\0 

3F4B 

0A17 

93 

SLL 

7 

3F4C 

0820 

94 

SAN 

SF4& 

174A 

95 

J  MP 

$-3 

3F4E 

0380 

96 

iOT 

X'8\0 

3F4F 

0000 

97 

HLT 

3F50 

1700 

98 

J  MP 

BEGIN 

3F5i 

0000 

99 

COUNT 

8 

0 

3F52 

0000 

100 

M9EX 

1 

0 

3F53 

0000 

101 

CHAR 

• 

0 

3F54 

0000 

102 

LAST 

8 

0 

3F53 

103 

MAGL0A1 

EQU 

$ 

3F55 

0050 

104 

S6M 

3F56 

0390 

105 

iOT 

9,0 

3F57 

97C8 

IOC 

LIX 

FORTY 

3F58 

0100 

107 

CLR 

3F59 

0399 

108 

IOT 

*,* 

3F5A 

109 

MAGRWT 

EQU 

S 

3F5A 

0290 

no 

ilN 

9*0 

3F5B 

0AC2 

HI 

SRC  L 

2 

3F5C 

0810 

112 

SAP 

3F51 

17CC 

113 

J* 

M8RXT 

3F5E  OAU 

114 

SLL 

1 

3F5F 

0820 

115 

SAM 

3FC0 

175A 

11C 

JMP 

MAGRWT 

3FC1 

029  F 

117 

tin 

**15 

3FC2 

3800 

118 

STB  * 

0 

3FC3 

0401 

119 

IXS 

1 

3FC4 

17CC 

120 

JMP 

MAGRXT 

3FC5 

175A 

121 

JMP 

MAGRWT 

3  FCC 

122 

HAGRXT 

EQU 

$ 

3FCC 

0100 

123 

CLR 

3FC7 

0390 

124 

iOT 

9,0 

3F€f 

0002 

125 

HLT 

2 

3FC9 

0080 

12C 

EXEC 

$  3F€A 

2020 

3FCB 

0028 

127 
128 

FORTY 

i 

40 
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129 

*   LOAi 

ANB  BUMP  PROGRAM 

3F6C   08B0 

130 

JUMP 

SSI 

3F6B   17B5 

131 

JMP 

MA6BMP 

3F6E  97F2 

132 

PLEAB 

LBX 

=200 

3F6F  03C0 

133 

BOT 

X'C'.O 

3F70  03 C2 

134 

BOT 

X*C\2 

3F71    0100 

135 

STAT8 

cut 

3F72  03C6 

136 

BOT 

X  'C  '  ,  6 

3F73  02C0 

137 

BIN 

X'C',0 

3F74   0A17 

138 

SLL 

7 

3F75  0820 

139 

SAM 

3F76  1773 

140 

JMP 

$•3 

3F77  0501 

141 

BXS 

t 

3F7f   1771 

142 

JMP 

STATS 

3F79   8706 

143 

PFRNT 

LBV 

CORES  TART 

3F7A   3762 

144 

STB 

/FRNT-M 

3F7B  0A08 

145 

SRL 

8 

3F7C  3761 

146 

STB 

/FRNT+3 

3F7B  1707 

147 

IW 

CORENB 

3F7E  B706 

148 

SUB 

CORESTART 

3F7F  A7FI 

149 

ABB 

32 

3FfO  OAU 

150 

SLL 

1 

3FI1    77B4 

151 

STW 

BYCOUNT 

3F82  0040 

152 

SLM 

3Fi3  97F3 

153 

LBX 

sO 

3F14  5F5E 

154 

STAT9 

LBB  * 

FRNT 

3FI 5  03C6 

155 

BOT 

X'C\6 

3FS6  02  CO 

156 

BIN 

X'C',0 

3FS7  0A17 

157 

SLL 

7 

3FSS  0820 

158 

SAM 

3FS9   1786 

159 

JMP 

$-3 

3FfA   0401 

160 

IXS 

1 

3FSB   0A10 

161 

NOP 

3FSC  0140 

162 

CXA 

3F8B  F7F0 

163 

CMW 

512 

3Ff E  0860 

164 

SEQ 

3FfF   1784 

165 

JMP 

STAT9 

3F90  0050 

166 

PIMP 

S6M 

3F91    8706 

167 

LBV 

CORESTART 

3F92  0A11 

168 

SLL 

I 

3F93  0130 

169 

CAX 

3F94   5 tOO 

170 

STAT10 

LBB  * 

0 

3F95  03C€ 

171 

BOT 

X'C',6 

3F96  02C0 

172 

BIN 

X'C\0 

3F97  0A17 

173 

SLL 

7 

3F98  0820 

174 

SAM 

3F99    1796 

175 
176 

JMP 

$-3 

301 
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177 

*   LOAi  A  Hi  BUMP  PROGRAM 

3F9A   0401 

l7f 

IXS 

1 

3F9B   OAIO 

17* 

NOP 

3F9C   0140 

110 

CXA 

3F9B  0A01 

lfl 

SRL 

1 

3F9E  B7EC 

1S2 

SIB 

31 

3F9F  F707 

1B3 

cm 

CORENB 

3FA0  Of CO 

If  4 

SEQ 

3FA1    1754 

If  5 

J  HP 

STAT10 

3FA2  97F2 

186 

PTRAIL 

LBX 

=200 

3FA3  0100 

If  7 

STAT1 1 

CLR 

3FA4  03 C< 

Iff 

BOT 

X*C\« 

3FA5  02 CO 

If* 

BIN 

X*C\0 

3FAC  0A17 

190 

SLL 

7 

3FA7  0S20 

191 

SAM 

3FAS   17A5 

192 

JP* 

$•3 

3FA9  0501 

193 

BXS 

1 

3FAA    17A3 

194 

JMP 

STAT1  1 

3FAB  03C0 

195 

BOT 

X'C',0 

3FAC  0000 

196 

MLT 

3FAB  OOtO 

197 

SMB 

EXEC 

3FAE  1020 

19f 

Jl*» 

EXEC 

3FAF  SAOO 

199 

FRNT 

B 

X'fAOO9 

3FB0  0200 

200 

B 

X'0200# 

3FB1    1011 

201 

B 

X'lOfB* 

3FB2  0000 

202 

B 

0 

3FB3  OOSA 

203 

B 

X'tA' 

3FB4  OOOd 

204 

BYCOUNT 

B 

0 

3FB5 

205 
206 

FRNTE 

EQU 

$ 
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LOAB  AftS  BUMP   PROGRAM 


PAGE 


207 

*   LOAB 

ANB  BUMP  PROGRAM 

3FB5 

208 

MAGBMP 

EQU 

$ 

3FB5 

005  0 

209 

SGM 

3FBC 

0390 

210 

BOT 

9,0 

3FB7 

0290 

211 

BIN 

*»0 

3FBf 

0A43 

212 

SRC 

3 

3FB9 

0820 

213 

SAM 

3FBA 

1719 

214 

JMP 

RING 

3FBB 

97€B 

215 

LBX 

FORTY 

3FBC 

0100 

214 

CLR 

3FBB 

0393 

217 

BOT 

9,3 

3FBE 

218 

MAGWWT 

EQU 

$ 

3FBE 

0290 

219 

BIN 

9*0 

3FBF 

0AC1 

220 

SRC  L 

I 

3FC0 

0820 

221 

SAM 

3FC1 

17BE 

222 

JMP 

MAGWWT 

3FC2 

5800 

223 

IBB   * 

0 

3FC3 

039  F 

224 

BOT 

9,15 

3FC4 

0401 

225 

IXS 

1 

3FC5 

17C7 

22  € 

JMP 

MAGWXT 

3FCC 

17BE 

227 

JMP 

MAGWWT 

3FC7 

228 

MAGWXT 

EQU 

$ 

3FC7 

0290 

229 

MAGWEW 

BIN 

9,0 

3FCf 

0AC1 

230 

SRC   L 

1 

3FC9 

0820 

231 

SAM 

3FCA 

17C7 

232 

JMP 

MAGWEW 

3FCB 

0100 

233 

CLR 

3FCC 

0390 

234 

BOT 

SO 

3FC1 

0004 

235 

HLT 

4 

3FCE 

0080 

23C 

EXEC 

S  3FCF  2020 

237 
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L0A1  AN1  1UMP   PROGRAM 


PASE 


23*    *    LOA1  AN!  1UMP  PR  OCR  AM 


3F10 

ItFF 

239 

MESS 

1 

X'flFF' 

3F11 

FFSA 

240 

1 

X'FFfA' 

3FK 

1712 

241 

TEXT 

•WRITE  RI 

3F13 

C$14 

3F14 

C5A0 

3F15 

12  C9 

3F1C 

CEC7 

3F17 

tlFF 

242 

1 

X'flFF' 

3FM 

FFSA 

243 

MESE 

1 

XVFfA' 

3F19 

0040 

244 

mm 

SLM 

3F1A 

03E0 

245 

10T 

X9E%0 

3FiB 

03EA 

24  € 

10T 

X'E'^A' 

3F1C  97F3 

247 

L1X 

zO 

3FU 

5FA0 

24S 

RIN8A 

LIB   * 

MESS 

3F1E 

03EE 

249 

10T 

X'ESX'E' 

3F1F 

02  EO 

250 

UN 

X'E^X'O' 

3FE0 

0A17 

251 

SLL 

7 

3FE1 

0S20 

252 

SAM 

3FE2 

171F 

253 

J  MP 

$-3 

3FE3  0401 

254 

IXS 

1 

3FE4 

0000 

255 

HLT 

3FE5 

0140 

25€ 

CXA 

3FEC 

F7F4 

257 

CMW 

=  11 

3FE7 

OfCO 

258 

SEQ 

3FES 

1711 

259 

JMP 

RINSA 

3FE9 

03E0 

2*0 

10T 

X'EVO* 

3FEA 

0000 

2€1 

HLT 

3FES 

1700 

2€2 

263 

ENI 

BE6IN 

3FEC 

0001 

3FE1 

0004 

3FEE 

0005 

3FEF 

OOOB 

3FF0 

OOOC 

3FF1 

0002 

3FF2 

OOCS 

3FF3 

0000 

3FF4 

0012 

NO   ERRORS 
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LOAD  ANB  BUMP   PROGRAM 


PA8E 


BEfIN 

3F00 

BYCOUNT 

3FB4 

CHAR 

3F53 

CORENB 

3F07 

CORES TAR 

3F0€ 

COUNT 

3F51 

BUMP 

3F«C 

ELEVEN 

3F2S 

EXEC 

0020 

FIVE 

3F23 

FORTY 

3F6B 

FOUR 

3F1B 

FRNT 

3FAF 

FRNTE 

3FB5 

FRONT 

3F14 

1NBEX 

3F52 

LAST 

3F54 

LEABER 

3F0B 

LOAB 

3F03 

HAfBMP 

3FB5 

MA8L0AB 

3F55 

MAfiRWT 

3F5A 

HAQRXT 

3F€« 

MA8WEW 

3FC7 

MAS WW T 

3FBE 

NACWXT 

3FC7 

MESE 

3FB8 

HESS 

3FB0 

PBMP 

3F50 

PFRNT 

3F7* 

PLEAB 

3FCE 

PLOAB 

3F0f 

PTRAIL 

3FA2 

RIN8 

3FB9 

RING  A 

3FBB 

SETABBR 

3F37 

STAT1 

3F0C 

STAT10 

3FM 

STATU 

3FA3 

STAT2 

3F1B 

STAT3 

3F3E 

STAT4 

3F4A 

STATf 

3F7I 

STAT* 

3F84 

TWELVE 

3F2F 

PAS? 
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I/O  UNIT  TEST  PROGRAM 

Unnecessary  instructions  were  stripped  from  the  program  and 
it  was  relocated  in  the  top  end  of  memory  QCT  3FF5')  to  allow  use 
of  a  contiguous  space  it  had  divided. 

The  functions  displayed  via  sense  switch  settings  remain  : 

SENSOR  WORD  (with  dial  set  on  ACL) 
1 
2 
3 
4 

Because  the  program  was  short  and  obvious,  the  condensed  version 
should  now  be  even  more  obvious  and  therefore  no  flow  chart  is  included. 


SENSE  SWITCH 

0 

up 

1 

up 

2 

up 

3 

up 
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I/O   UNIT  TEST  PRGCE1URE 


PA8E        1 


I 
2 
3 

•I/O 

UNIT  TEST  PROCEDURE 

▼ 
♦ 

VERSION  OF 

12/15/76 

J6B 

4 
5 

* 

MODIFIED  TO 

FIT  ABOVE 

THE  LOAD  DUMP  ROUTINE 

3FF5  008F 

SMB 

$ 

3FF6 

7 

ASA 

EQU 

$ 

3FF6  08C0 

f 

SSO 

3FF7   02F6 

9 

•IN 

15,6 

SENSOR   WORD    1 

3FFf   08D0 

10 

SSI 

3FF5   32F5 

11 

UN 

15,5 

SENSOR  WORD  2 

3FFA   08E0 

12 

SS2 

3FFB  02 F3 

13 

BIN 

15,3 

SENSOR  WORD  3 

3FFC  08F0 

14 

SS3 

3FFD  02 F7 

15 

UN 

15,7 

SENSOR   WORD  4 

3FFE  17F6 

16 
17 
18 

JMP 

0RI8 

END 

A8AIN 
X^FFF' 

NO    ERRORS 


ASA  IN 
PAS? 


I/O  UNIT  TEST  PROCEDURE 
3FF6 


PA8E 


307 


*U.S.  GOVERNMENT  PRINTING  OFFICE  :  1977  0-731-OV7/26 


DOT  LIBRARY 


ODDSSb71 


FHWA 


R&D 


